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The terms "Multiplexor" and "1/0 Processor" are synonymous. 
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SECTION 1 
GENERAL DESCRIPTION OF THE MCP 

LOCATIONS IN THE D[0] STACK 



A list of the lower locations relative to the address contained in dis- 
play register D[Ol follows. The D[0] register points to memory address 
30 hexadecimal . 

HEX DECIMAL DECLARATiOH 

(0,02) - (0, 2) - ARRAY ARRAYSTACK [*,*,*! 

(0,03) = (0, 3) - WORD D03 

(O,0ll) = (0, A) - WORD ARRAY M2 [*,*] 

(0,05) • (0, 5) - SEGMENT DESCRIPTOR 
FOR MCP SAVE CODE 

(0,06) - (0, 6) - SLAVEOUARTERS, TOTAL CORESIZE 

(0,07) - (0, 7) • PROCEDURE ARRAYDEC 

(0,08) - (0. 8) - HONITORVALUE 

(0,09) - (0, 9) = HONITORMASK 

(0,0A) - (0, 10) - PROCEDURE BLOCKEXIT 

(0,0B) - (0, 11) = PROCEDURE GOTOSOLVER 

(0,0C) - (0, 12) - DABMEM 

(0,0D) = (0, 13) = PROCEDURE TIHETUNNEL 

(0,0E) - (0, U) - PROCEDURE SOFTWARE I NTERRUPTATTACH 

(0,10) - (0, 16) - PROCEDURE PICIWSTACK 

(0,11) - (0, 17) - ARRAY INTRINSICINFO [*] 

(0,13) = (0, 19) - PROCEDURE HOLD 

(0,U) - (0, 20) - PROCEDURE MEMDUMP 

(0,15) = (0, 21) - PROCEDURE XALGOLFI LLSTAT 

(0,16) = (0, 22) - PROCEDURE XALGOLSEARCHSTAT 

(0,17) - (0, 23) - PROCEDURE PROGRAHDUMP 

(0,18) - (0, 2l|) ■ REAL PROCEDURE Tl HEI NTRl NSl C 

(0,1B) - (0, 27) - PROCEDURE CLOSE 

(0,1C) - (0, 28) - PROCEDURE FORMATINT 

(0,1D) - (0, 29) = TIMEOFDAYWORDV 

(0,1F) - (0, 31) - PROCEDURE OPEN 

(0,20) - (0, 32) ■ PROCEDURE FAULTDEC 

(0,21) = (0, 33) - TRANSLATETABLE BCLTOEBC [*) 

(0,22) - (0, 3I1) - TRANSLATETABLE EBCDICTOBCL [*] 

(0,23) • (0, 35) - DOUBLE VALUE ARRAY POTL 

(0,2ll) - (0, 36) - DOUBLE VALUE ARRAY POTM 

(0,25) • (0, 37) ' DOUBLE VALUE ARRAY POTH 

(0 26) - (0, 38) ■ VALUE ARRAY TRUTHSETS 

(0,27) - (0, 39) = SAVE TRANSLATETABLE HEXTOBCL 

(0,28) - (0, 40) ■ PROCEDURE MESSER 

(0,29) - (0, 111) - REAL PROCEDURE ATTRI BUTEGRABBER 

(0,2A) - (0, '(2) - PROCEDURE ATTRI BUTEHANDLER 

(0,2B) = (0, 43) - BOOLEAN PROCEDURE GETSTATUS 

(0,2c) - (0, W) - BOOLEAN PROCEDURE SETSTATUS 

(0,2D) - (0, US) = REAL PROCEDURE SYSTEMSTATUS 

(0,2E) - (0, 1(6) - PROCEDURE USERIOERROR 

(0,2F) • (0, I47) - SAVE PROCEDURE SWAP 

(0,30) » (0, "18) - BOOLEAN PROCEDURE WRITESPO 

(0,32) - (0, 50) - PROCEDURE LOADCONTROL 
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LOCATIONS IN D [O] STACK 



HEX 




DECIMAL 


DECLARATION 


(0,33) 




(0 


51) 


= PROCEDURE FORGETSPACE 


(0,3'<) 




(0 


52) 


- REAL PROCEDURE Dl RECTORYSEARCH 


(0,35) 




(0 


53) 


- REAL PROCEDURE UAITIO 


(0,36) 




(0 


51.) 


- PROCEDURE lORECJUEST 


(0,37) 




(0 


55) 


= WORD PROCEDURE DISKIO 


(0,38) 




(0 


56) 


• PROCEDURE FORGETAREA 


(0,39) 




(0 


57) 


- REAL PROCEDURE GETUSERDISK 


(0,3A) 




(0 


58) 


= PROCEDURE PROCESSKILL 


(0,38) 




(0, 


59) 


= REAL PROCEDURE SPACEOF 


(0,3C) 


= 


(0, 


60) 


= REAL PROCEDURE SPACEN 


(0,3D) 


= 


(0 


61) 


= PROCEDURE HOHTOVECTOR 


(0,3E) 




(0, 


62) 


= PROCEDURE TURNOVERLAYKEY 


(0,3F) 




(0, 


63) 


= PROCEDURE HAKEPRESENTANDSAVE 


(0,1.0) 




(0 


61.) 


= PROCEDURE UPDATEDISKHEADER 


(O.^l) 




(0 


65) 


- BOOLEAN PROCEDURE Dl SPLAYTOSTANDARD 


(O.W) 




(0, 


66) 


= REAL PROCEDURE GETSPACE 


(0,1.3) 




(0, 


67) 


= 800LEAN PROCEDURE DISKWAIT 


(0,1.'.) 




(0, 


68) 


- INTEGER PROCEDURE GETAREA 


(0,1.5) 




(0, 


69) 


= PROCEDURE SORT 


(0,1.6) 




(0, 


70) 


- PROCEDURE RESIZEANDOEALLOCATE 


(0,1.8) 




(0, 


72) 


= REAL TIHEBASE 


(0,49) 




(0, 


73) 


- PROCEDURE PUTSPACEUSAGE 


(0,I.A) 




(0, 


71.) 


- PROCEDURE FORGETUSERDISK 


(0,1.8) 




(0, 


75) 


= REAL PROCEDURE DELTA 


(o,i.c) 




(0. 


76) 


= PROCEDURE ANSWER 


(0,1|D) 




(0, 


77) 


= PROCEDURE DIAL 


(0,1.E) 




(0, 


73) 


- PROCEDURE SPEAK 


(0,1.F) 




(0. 


79) 


- PROCEDURE HANGUP 


(0,50) 




(0, 


80) 


= PROCEDURE SEARCH 


(0,51) 




(0, 


81) 


= PROCEDURE CHANGEINUSEID 


(0,52) 




(0, 


82) 


= PROCEDURE KANGAROO 


(0,56) 




(0, 


86) 


= PROCEDURE CONTROLCARO 


(0,59) 




(0, 


89) 


= PROCEDURE KEVIN 


(0,5A) 




(0. 


90) 


= WORD PROCEDURE EXPANDAROW 


(0,58) 




(0, 


91) 


= REAL PROCEDURE ENTERUSERFI LE 


(0,5C) 




(0, 


92) 


= ARRAY DISKFILEHEADERS [*,*] 


(0,50) 




(0, 


93) 


- PROCEDURE DELIVERY 


(0,5E) 




(0, 


91.) 


- REAL PROCEDURE DESCRI PTORSI ZE 


(0,5f) 




(0, 


95) 


= REAL PROCEDURE WRITEHEADER 


(0,60) 




(0, 


96) 


= REAL PROCEDURE REAOHEADER 


(0,61) 




(0, 


97) 


= PROCEDURE HEADATHAND 


(0,62) 




(0, 


98) 


= PROCEDURE HEADATGRAB 


(0,63) 




(0, 


99) 


= PROCEDURE BINARYIOINT 


(0,61.) 




!"■ 


100) 


- TRANSLATETABLE BCLTOHEX 


(0,65) 




(0, 


101) 


= TRANSLATETABLE EBCTOHEX 


(0,66) 




(0, 


102) 


= WORD PROCEDURE UNRAVEL 


(0,67) 




(0, 


103) 


- PROCEDURE NUTATE 


(0,68) 




(0, 


101.) 


= SAVE WORD PROCEDURE MYSELFER 


(0,69) 




(0, 


105) 


= PROCEDURE CONTINUER 


(0,6A) 




(0, 


106) 


- PROCEDURE ACCEPT 


(0,6B) 




(0, 


107) 


= PROCEDURE DCFLUSH 


(0,6C) 




(0, 


108) 


- PROCEDURE DCCOHBINE 
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LOCATIONS IN D [0] STACK 



HEX 

0,6D) 
0,6E) 
0,6F) 
0,70) 
0,71) 
0,72) 
0,73) 
0,7'.) 
0,75) 
0,76) 
0,77) 
0,78) 
0,79) 
0,7A) 
0,7B) 
0,7C) 
0,7D) 
0,7E) 
0,80) 
0.81) 
0,82) 
0,83) 
0,84) 
0,85) 
0,86) 
0,87) 
88) 
0,89) 
0.8B) 
0,8c) 
0,8D) 
0,8E) 
0,8F) 
0,90) 
0,91) 
0,92) 
0,93) 
0,94) 
0,95) 
0,96) 
0,97) 
0.98) 
0,99) 
0,9A) 
0,9B) 
0,9C) 
0,90) 
0,9E) 
0,9F) 
O.AO) 
O.Al) 
0,A3) 



109) ■ 

no) ^ 

111) 

112) 
113) 
114) 
115) 
116) 
117) 
118) 
119) 
120) 
121) 
122) 
123) 
124) 
125) 
126) 
128) 
129) 
130) 
131) 
132) 
133) 
134) 
135) 
136) 
137) 
139) 
140) 
141) 
142) 
143) 
144) 
145) 
146) 
147) 
148) 
149) 
150) 
151) 
152) 
153) 
154) 
155) 
156) 
157) 
158) 
159) 
160) 
161) 
163) 



DECLARATIOM 

PROCEDURE DCINSERT 

REAL PROCEDURE DCREHOUE 

DOUBLE PROCEDURE DCHOLD 

PROCEDURE DCCOMMUNICATE 

REAL PROCEDURE DCURITE 

PROCEDURE INTERRUPTDEJUEUE 

REAL PROCEDURE DCdlNFO 

REAL PROCEDURE DCINFOINT 

PROCEDURE DCALLOCATE 

PROCEDURE FORKCONTROLCARD 

REAL PROCEDURE DCQUEHANDLER 

WORD PROCEDURE DCATTACHDETACH 

REAL PROCEDURE DCERRORLOGGER 

RESERVED FOR DATACOH 

REAL PROCEDURE DMDI RECTORYCONTROL 

INTEGER PROCEDURE DHWRITE 

BOOLEAN PROCEDURE DHINTRINSIC 

PROCEDURE OVERLAYFD 

REAL PROCEDURE COPY I NT 

PROCEDURE SUPERNON 

BOOLEAN PROCEDURE DIDDLER 

PROCEDURE WORDMOVEINT 

PROCEDURE EXCHANGE I NT 

REAL PROCEDURE SUBDI RECTORYSEARCH 

REAL PROCEDURE FINDINPUT 

REAL PROCEDURE FINDOUTPUT 

REAL PROCEDURE FINDUNIT 

PROCEDURE AMNESIA 

PROCEDURE STACKHISTORY 

PROCEDURE LOSEOLAYSPACE 

REAL PROCEDURE FINDOLAYSPACE 

BOOLEAN PROCEDURE FIXHANDLER 

DUKHY TAG-6 WORD (USED BY COMPILERS) 

TAG-6 WORD (OVERLAY CONTROL) 

NULL QUEUE REFERENCE (USED BY ESPOL) 

EMPTY DATA DESCRIPTOR 

REAL PROCEDURE MCSLOGGER 

PROCEDURE LOGGER 

REAL PROCEDURE DIRECTOR 

PROCEDURE CAUSER 

RESERVED 

PROCEDURE WAITP 

PROCEDURE SETORRESET 

PROCEDURE PROCURER 

BOOLEAN PROCEDURE HAKEUSER 

PROCEDURE LIBERATE? 

PROCEDURE ENABLEP 

PROCEDURE DISABLEP 

PROCEDURE SUPERWAIT 

BOOLEAN PROCEDURE STACKSWAPPER 

EVENT DCALCOLSPOLOCK 

WORD DCALGOLSPOQ 
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LOCATIONS IN D [O] STACK 



HEX DECIMAL DECLARATION 

(0,Al4) - (0,l61l) - BOOLEAN PROCEDURE ACCEPTAHSG 

(0,A5) - (0,165) - BOOLEAN PROCEDURE CHECKTASKSTATUS 

(0,A8) - (0,168) = PROCEDURE PLCONDHANDLER 

(0,AC) - (0,172) • BOOLEAN PROCEDURE USERDATAFREEZER 

(0,AD) - (0,173) - REAL PROCEDURE USERDATA 

(O.AE) - (0,174) - REAL PROCEDURE USERDATAREBUI LD 

(0,AF) - (0,175) - PROCEDURE FORKHANDLER 

(0,B0) - (0,176) = TRANSLATETABLE BCLTOASC 

(0,81) - (0,177) - TRANSLATETABLE EBCTOASC 

(0,B2) = (0,178) - TRANSLATETABLE ASCTOHEX 

(0,B3) - (0,179) - TRANSLATETABLE ASCTOBCL 

(0,Bil) - (0,180) - TRANSLATETABLE ASCTOEBC 

(0,B6) - (0,182) = PROCEDURE MAINTENANCE 

(0,B7) - (0,183) - PROCEDURE CREATEDl RECTORY 

(0,B8) - (0,18')) - PROCEDURE CHANGESECURITY 

(0,B9) - (0,185) - PROCEDURE JOBBLOCKEXIT 

(0,BA) - (0,186) - PROCEDURE JOBROLLOUT 
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UNIT TABLE 



FIELD NAME AMD MEANING 

117:6 UNITTYPE. (in decimal) 

- HO UNIT TYPE. 

1 - DISK. 

2 - DISPLAY (SPO, CONSOLE, ETC.). 

3 - (DATACOM) . 

k - PAPER TAPE READER. 

5 - PAPER TAPE PUNCH. 

6 - LINE PRINTER (BCU - BUFFERED). 
9 = CARD READER. 

10 - (PSEUDO-READER). 

11 - CARD PUNCH. 

13 - MAG TAPE (7 TRACK - NRZ) . 

1 4 - HAG TAPE (9 TRACK - NRZ). 

15 = MAG TAPE (9 TRACK - PE) . 

38 - LINE PRINTER (EBCDIC - BUFFERED). 

39 = LINE PRINTER (EBCDIC - UNBUFFERED). 
49 ■ DISK PACK. 



ABNORHALPWROFF. 

NORMALPWROFF. 

UNINITIALIZEDF. 

ULPFHED, 

UAUTOBACKUP . 

ULABELREAD. 

MAINTBIT. 

MARGINALBITF. 

UNITSECURITYF. 

USTKASSIGNED. 

DFONUMF. 

UNITNOTREADY. 

UNITE RROR. 

UPATHWAIT. 

UNITIOBUSY. 

UNITINPROCESS. 

UNITRETRY. 

ULOCKED. 



Ill 

39 




36 




35 




3'! 




33 




32 




31 




30 




29 




25 




24 




23 




22 




21 




20 




19 
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UNIT TABLE 



KAME AND MEANING 



18:1 
17:3 



USAVED. 
DENSITYF. 

IF UNITTYPE = DISK: 

= I lB-6. 

1 . IA-2. 

2 . IC-3. 

3 - llB-2. 
1) . IC-A. 
5 - I IB-Il. 

IF UNITTYPE - MAG TAPE: 

= 800 BPI. 

1 = 556 BPI . 

2 = 200 BPI. 

3 - 1 600 BPI. 

USCRATCH. 

UNITASSIGNED. 

ULABELLED. 

UINREUIND. 

UCLOSEDNOREWIND. 

UTOBEPURGED. 

UURITERING. 

UCONTROLCARD. 

UCLOSERRF. 

UNITPATHGROUP. 

ALWAYS = I 
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HEX 


DEC 








2 


2 


3 


3 


k 


h 


5 


5 


6 


6 


7 


7 


8 


8 


9 


9 


A 


10 


8 


11 


C 


12 





13 


E 


H 


F 


15 


1° 


li 


n 


17 



ioareaC*] format 



NAHE(S) 
lOLlNKAGE (USED IN lOftUE c PATHCIUE) 
USER 
lOMASK 

lORD (CONTAINS R.D. AT I/O FINISH) 
AREADESC (POINTS AT lOCWP) 
TIMECELL (TIME OF I/O IN 2.14 usee) 
EVNT (CAUSED AT I/O FINISH) 
FIBDESC 
BFFREVENT 
BFFREVENT2 
lOAL (BUFFER LINKS) 
lOAU/HSGPLC (BUFFER INFO) 
lOADU (ACTUAL KEY) 
ACTUALKEY2 (UPDATE READ) 
DUPLCOPY (OCCURS WORD) 
JUNKl 

lOCWP (THE lOCW) 

FRSTDATA 
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USER WORD OF lOCB 



FIELD 

47:10 

37:1 

36:1 

32:9 

19:5 

lll:2 

H: 
13: 

12:1 
11:1 



NAME AND MEANING 

IDNO (USER STACK NO.) 

COUNTEIOF (COUNT IN STACK) 

GOGETAREA (FOR DISK LOGGING) 

UNITNOF (LOGICAL UNIT NO.) 

NPXROUTEF (HPX DESIGNATE NORMALLY ZERO) 

USERIDF (USER ID FIELD) 

SIMPLEIOBIT (SIMPLE 10) 

LIBHAINBIT (LIBRARY MAINTENANCE BIT) 

READCHECKBIT (READ CHECK BIT) 

UPDATEREAD (DO READ AFTER WRITE - UPDATE 
FILES) 

TAPEPROCTECTIONF (USE BUF [I] IN PARITY 
RETRY) 

USERINPROCESS (I/O IN PROCESS) 

USEROUERROUF (BADLY BLOCKED DISK) 

USERSPECIALIO (SPECIAL ACTION TO BE TAKEN) 

USERIOBIT (USER'S I/O) 

CLOSERRBIT (CLOSED BECAUSE OF ERROR) 

DIRECTI06IT (DIRECT 10 INDICATOR) 

lOERRORRECOVERY 

USERIOFIELD 

USERPARITYBIT 
USEREOFORTBIT 
USERIOFINISH 
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USER WORD OF IOCS 



THE FOLLOWING FIELDS APPLY TO HISC WORD OF lOCB. 
1,7:20 HORDCOUNTF (WORD COUNT FIELD) 

27:3 RDCHRCNT (CHARACTER COUNT FIELD) 

2l|;8 RDUNITNO (UNIT NO.) 

16:17 lOERRORMASKFIELD (lOFINISH) 



AFTER SUCCESSFUL lOFINISH, lOERRORMASKFIELD CON- 
TAINS ERROR FIELD (AFTER MASKING) OF RESULT DES- 
CRIPTOR. 



FORMATS OF STACKS 

Each STACK has the following format: 



0026 - 


I0C0UNT2 


















" 




0025 - 


lOCOUNTl 












0021) - 


REPLYEVENT 












0023 - 


BDINFO 












0022 - 


JUNK 












0021 - 


SEGHNTARRAY 












0020 - 


CONDLISTDESC 












001 F - 


FAULTINFOPLACE 












OOIE - 


FAULTLISTDESC 












001 D - 


EXCEPTI0NEVENT2 












OOIC - 


EXCEPT lONEVENT 












OOIB - 


OATDESC 








BASE 


OOIA - 


STKINTRPTREF 








— , 


OF 


0019 - 


lOSLINKED 








ALL 


0018 - 


AITDESC 








"PROCESS 


0017 - 


STACKINFOTOP 








STACKS 


0016 - 


OLAYINFODESC 












0015 - 


OLAVFILEDESC 






BASE 






001 14 


OLAYCU 








OF 






0013 


FORCEDOLAYTIME 






"DO" 






0012 


DLAYCNTL 






STACK 






0011 


THEFILE 














0010 


- CORES IZE 




BASE 










OOOF 


- ACTTIME 




OF 










OOOE 


- ACT COUNT 





"Dl" 










OOOD 


- JOBMSGS 




STACKS 










OOOC 


- DCWCOUNT 


1 














OOOB 


- PROCESSFAMILYLINK 


SIZE 














OOOA 


- STACKSERIAL 


OF 














0009 


- MEMLOC 


SHEET 














0OO8 


- CORE INTEGRAL 


















0007 


- SAVEC0REINU5E 


















0006 


- COREINUSE 


















0005 


- USAGE 


















OOO"! 


- ALTDESC 


















0003 


- TASKOESC 


















0002 


- REPLY 


















0001 


- STUFF ITMSCW 






1 








1 


0000 


- TOSCWD 






I 
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FORMAT OF TASK VARIABLE 

The following list denotes relative locations within the task > 

0000 - TASKHSCW 

0001 - AVALUE 

0002 - HVBDNAME 

0003 - DATACORE 
OOd - CODECORE 

0005 - EXCEPTIONTASK 

0006 - FILESENTRY 

0007 - HYFPB 

0008 - HVPPB 

0009 - LOCKEDEVENT 
OOOA - L0CKFDEVENT2 
0008 - MAX I OT I ME 
OOOC - MAXPROCESSTIHE 
OOOD - MYNAME 

OOOE - OPTION 

OOOf - PARTNER 

0010 - PRIORITY 

0011 - RESTARTCOUNT 

0012 - STACKSIZE 

0013 - STATIOKINFO 
OOlll - TARGETTIME 

0015 - USERCOOE 

0016 - USERCODEl 

0017 - USERC0DE2 

0018 - USERC0DE3 

0019 - VALIOITYBITS 
OOIA - YOURNAME 

001 B - ABORTEORCU 

OOIC - COMPILERINFO 

0010 - ELAPSEDTIME 

001 E - ERROR 

001 F - HISTORY 

0020 - lOTlME 

0021 - PROCESSTIME 

0022 - TASKTYPE 

0023 - SERIAL 
002^ - TIMESTARTED 

0025 - ORGUNIT 

0026 - MYSTACKHISTORY 

0027 - BLOCK 

0028 - MEMTYPE 

0029 - CONTROLCARDS 
002A - TASKPARAMS 
002B - JOB INFO 
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002C - 


ROLLOUT INFO 


002D - 


CLOCKONTIHE 


002E - 


DISTACKINFO 


002 F - 


ENTRYPOINT 


0030 - 


NEXTTIMER 


0031 - 


PALACE 


0032 - 


MSCWINTOTASK 


0033 - 


TIMESLOT 


oosii - 


LOCKCOUNT 


0035 - 


TASKINFO 


0036 - 


READYON 


0037 - 


READYTIME 



FORMAT OF TASK VARIABLE 



FIXED PART OF FILE INFORMATION BLOCK (FIB) 



0000 


SIRU 


SELECTOR 


0001 


HSCW 


FIBMSCW 


0002 


REAL 


Fl BLOCK 


0003 




RECORDSTATUS 


0004 




FILESTATUS 


0005 




TANKDATAl 


0006 




TANKDATA2 


0007 




TANKDATA3 


0008 




LABELATT 


0009 




lOINFO 


OOOA 


ARRAY LEB[«1 


OOOB 




I0AREA[*1 


OOOC 




BUFFDESC[*] 


0000 


WORD 


USEROUTINES 


OOOE 


FHTBUFFDESC 


OOOF 




FILLOGLNK 



= FIBU[Ol#; 


% IKDXFLD=PWRITES 


- FIBUUIS; 


% (1,0) 


. FlB[2l#, 


I (1,1) 


- FIB[3]#, 


% (1,2) 


= FIB[lll#, 


% (1,3) 


- F1B[5]#, 


i O.'t) 


- FIB(6]#, 


% (1,5) 


- FIB[7]#, 


* (1,6) 


= FIB[8]#, 


« (1,7) 


= FIB[9l#; 


* (1,8) 


. FIBUdOl/?, 


* (1,9) 


- FIBU[n]#, 


% (1,A) 


. FIBU[12l#; 


% (l,B) 


. FIBW[13l#; 


* (1,0 


- F1B[U!#, 


% (1,0) 


= FIB[15]#, 


% (1,E) 
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0010 FILIOTIME 

0011 WORO PWRITES 

0012 PREADS 

0013 PUR I TEN 
00 U PREADN 

0015 PSEEK 

0016 PREADR 

0017 PSEARCH 

0018 PLOCKER 

0019 PRELEASE 
OOIA FlLEEVENTt 
OOIB F1LEEVENT2 
001 C REAL FILEACCESS 
OOID DISKBLOCK 
001 E PCWCONTROL 
001 F OFFSET 

0020 RECORDCOUNT 

0021 BLOCKCOUNT 

0022 LOWER 

0023 UPPER 

0024 ACTNUM 

0025 R 

0026 I 

0027 T 

0028 WORD AEXP 

0029 ARRAY DHEADER[*] 
002A REAL FIBEOF 
002B PAGESPEC 
002C SBLOCKING 
002D SIOINFO 
002E ARRAY SI0AREA[«1 
002F REAL SOFFSET 

0030 REAL CURRENTBLOCK 

0031 WORD PHOVEIN 

0032 PMOVEOUT 

0033 PWAIT 

0034 REAL MINRECSZ 

0035 REAL FIBMLOGCNT 

0036 WORD INPUTTRANSLATION 

0037 OUTPUTTRANSLATION 

0038 REAL FMTLOCK 

0039 ATTVALUE 



- F1B[16J#: 

- FIBW[17]# 

- F1BW[I8]# 

- FIBU[19]# 

- F1BW[201# 
= FIBW[21]# 
= FIBU[22]# 

- F1BW[23]# 

- FlBW[2'l]# 

- FIBW[25l# 

- F1BW[26J# 

- FIBW[27]if 

- F1B[28]*, 

- FIB[29]#, 

- F1B[30)#, 

- FIB[31]#, 

- FIB[32]#, 
= FIBl33l#, 

- FIB[3'll#, 

- FIB[35l#, 

- FI6[36]*, 

- F1B[371#, 
= FI6[381#, 
= FIB[39l#; 

- FIBWdO]*; 

- FIBW[l|t]#; 
= FIB[1.2]#, 

- FIB[ll3]#, 

- FIBIM]*. 

- FIB(45]#; 

- F1BW[;6]#; 

- FIB[47l#; 

- FIB[48]#; 

- FIBW[49]*, 
• FIBW[50]#, 

- FIBW[51]#; 

- FIB[52]#; 

- FlB[53l#; 

- FIBWt54]i((, 

- f\BV[55]l; 
= FIB[561#, 

- FI6[57l#; 



1,F) 

1,10) 

1,11) 

1,12) 

1,13) 

1,14) 

1,15) 

1,16) 

1,17) 

1,18) 

1.19) 

I.IA) 

1,1B) 

1,1C) 

1,1D) 

1,IE) 

I.IF) 

1,20) 

1,21) 

1,22) 

1,23) 

1,24) 

1,25) 

1,26) 

1,27) 

1,28) 

1,29) 

1 ,2A) 

1,2B) 

1,2C) 

1,2D) 

1,2E) 

1,2F) 

1,30) 

1,31) 

1,32) 

1,33) 

1,34) 

1,35) 

1,36) 

1,37) 

1,38) 
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MEMORY LINKS 

All areas in memory (whether in use or not in use, overlayable or non- 
overlayable) are surrounded by memory link words. When getting space, 
the MCP uses the Linked List Lookup operator to find the firstarea which 
is equal to or greater than the size needed. The MCP begins with Word 
or 1 depending on the type of area needed. 

In -Use Areas: 



In-use areas both in overlayable and nonoverlayable memory are sur- 
rounded by four memory links, as follows: LINKA, LINKB, LINKC, the in- 
use area, and LINKZ. 

Avai lafale Areas: 

Areas that are not in use are placed in two available lists; all items 
in these lists are linked together in the order of their size, smallest 
first. Available areas are surrounded by four memory links, as follows: 
AVAILA, AVAILB, the available area, AVAILY, and AVAILZ. 
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FORMATS OF MEMORY WORDS AND 1 

The first two words in memory, words and I, contain pointers to each 
of the types of areas contained in memory: 

a. Nonover jayabie in-use areas. 

b. Overlayable in-use areas. 

c. Ava i 1 able areas. 



MEMORY WORD 







43 


' 1 










19 














Add. 


isso 


firsi 








Addr 
Smol 


T.U 


llfS 

VAII 


ond 
IRI F 




1 




IN-U 
Point 


;e or 


INK A 


word 






OVEI 


that 
tLAY 


,BLE 


oreo 




t 












24 












6 


3 
























' 



MEMORY WORD 1 



addjess 
fo .INK2 
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Formats of Linki: In-Uio and AvailabI* Areas 

WORD IN-USE 



LINKA 



iToi \L : IZE 

N< LUD NG 



ZE" 






cs 



ADDRESSF 



des;rip tor; 



^7:2 = OVERLAYCF = Status of area during 
overlay process. 
CS = CURSAVF = 1 if area is temporary save. 
S = SAVEF = I if area is non-over) ayabl e. 



LINKS 


























1 


_ 




















1 


1 






1? 


;ag 


IF 







ADC RE >SF 




1 


SI 


KN 


iF 


I 


bRE4 
SAGS) 


F 


( 


)tSK ADD lESq 
ro IE UtSED) 




1 


OF 


own^'r) 


1 1 








_ 


_ 


_ 



DF = DELTAF = Number of unused words 
not sent back to 
avai lable \ ist 




OCCUPI ED AREA 

















D 


















s 


tZE 


t 




CS 




ADI 


)RE 


3SF 




1 














S 


[M 


lMO 
OF 


Y A 
IOC 


}) 


>s 


1 














1 










_ 



D = 1 if area contains a DELTA area. 
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MEMORY LINKS 

Formats of Links; In-Uso and Availoblo Arooi (Cont) 

AVAI LABLE 



SKEF 



(TOl AL J IZE 3F A lEA 



ADI iRE >SF 



ST • STOPPERF - 1 if last item in 

ava i table list 
SD = SAVEDF =1 if memory mod is "saved" 





















'" 


























AD[ 


RE 


)SF 




















































1 





(U5ed for linked list of available areas 
that precede overlayable areas). 



AVAI LABLE AREA 















































ADI 


bRE 


3SI 




















(ME< 

PRl 


lORY 


ADOilESS 
ALL5R A( 


OF 
EA) 






















1 





(Used for linked list of available areas 
that adjoin non-cverlayable areas). 



AVAILZ 





ST 


























1 




S 


ZE 


r 








ADI 


RE 


>SF 


















SD 


[MEh 
NFX 


offr 
n A 


iDOf 


;ss 


OF 


1 
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The B 6700 language compilers are special-purpose computer programs 
used to syntactically check source code and to translate this code into 
object code capable of being executed under control of the B 6700 MCP. 

All B 6700 compilers are written in B 67OO Extended ALGOL. Each com- 
piler source file has the title: SYMBOL/<compi ler-name> , where <com- 
piler-name> is identical to the name of the language in which the pro- 
gram to be compiled is written (e.g., SYMBOL/ALGOL, SYMBOL/FORTRAN). 
Similarly, each compiler object file has the title: SYSTEM/<compi ler- 
name> {e.g. SYSTEM/ALGOL, SYSTEM/XALGOL) . 

Each compiler accepts as input the appropriate language coded in either 
EBCDIC or BCL characters. In addition to these two character formats, 
the FORTRAN compiler accepts BCD characters. Each compiler, except 
ESPOL and XALGOL, internally processes characters in EBCDIC, with BCL 
characters being translated to EBCDIC via the MCP translation table, 
BCLTOEBCDIC, and BCD characters being translated via a modified 
BCLTOEBCDIC table. The ESPOL and XALGOL compilers internally process 
characters in BCL, with EBCDIC characters being translated to BCL via 
the MCP translation table, EBCDICTOBCL. 

COMPILER FILES 

Compiler communication is handled through various input and output 
files; these files are described in the following paragraraphs . 

Input Files 

The primary compiler input file is a card file with the internal name 
CARD; the secondary input file is a serial disk file with the internal 
name TAPE. The primary file (CARD) is required; the secondary file 
(TAPE) is optional. File CARD can be either BCL-coded (or BCD-coded for 
FORTRAN) or EBCDIC-coded and may be blocked or unblocked. File TAPE can 
be either BCL-coded or EBCDIC-coded and may be blocked or unblocked. 
(See table 2-1.) Both file CARD and file TAPE may be label -equated to 
change file TITLE and/or file KIND. Additional files may be input to 
all compilers except XALGOL, BASIC, and COBOL through use of the INCLUDE 
compiler control option. These files may be either BCL-coded or EBCDIC- 
coded and may be blocked or unblocked. 

The COBOL compiler may also access permanent library files as compiler 
input through use of the FROM compiler option and the COPY statement. 
The files thus accessed may be either BCL-coded or EBCDIC-coded and may 
be either blocked or unblocked. 

NOTE 

Usually BCL-coded records are 10 or II words 
and EBCOiC-coded records are 1^ or 15 words, 
but this is not a strict requirement of com- 
piler input f i 'es . 
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Output Files 

Output files produced by the compilers may include the object code file 
(on disk), an updated symbolic code file, a line printer listing, or 
various special -purpose files produced by the ESPOL and COBOL compilers. 
The object code file has the internal name CODE and is saved on disk 
unless the COMPILE card specifies compilation for syntax only or unless 
syntax errors are detected in the source input data by the compiler. 
If compi le-and-go is specified by the COMPILE card, then the object 
file is discarded following execution of the program. (This con- 
cept is meaningless for ESPOL programs since such programs cannot be 
"executed".) If compilation for library is specified, then the object 
code file is saved (with a SAVEFACTOR assigned by the compiler in- 
volved). The TITLE of the saved object code file is identical to the 
program name appearing on the COMPILE card (except in the case of sep- 
arately-compiled procedures). When procedures are compiled separately, 
the TITLE of the resultant object code library file consists of the pro- 
gram name appearing on the COMPILE card with the rightmost file 
identifier in the program name replaced by the procedure identifier. If 
there is only one directory level in the program name, this program name 
is assigned as the file TITLE. 

The updated symbolic file is a serial head-per-track disk file (unless 
the file KIND is altered) generated only if the compiler option NEW is 
set. This file has the internal file name NEWTAPE and contains EBCDIC- 
coded U or 15-word records in ^20-word blocks (except when generated by 
the XALGOL or ESPOL compilers in which case the file contains BCL-coded 
10 or 11-word records in 1 50 -word blocks). A SAVEFACTOR is assigned to 
the file by the compiler. (Refer to table 2-2.) 

The output listing is an optional print file that is created unless the 
compiler option LIST ( and L I STP and LISTI for COBOL) is reset. The 
file has the internal name LINE and contains the following items: 

Source input 

Code segmentation information 

Error messages 

Elapsed compilation time 

Processing time 

Number of cards scanned 

Number of syntactic items 

Stack estimate (in words) 

Required core estimate (in words) 

Number of errors detected 

Sequence number of last error detected 

Generated object code (if option CODE is set) 

Stack address assignments (if option STACK is set) 
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For FORTRAN compilations the listing also includes: 

Fi le size (in words) 
Array storage (in words) 

For COBOL compilations the listing also includes a display of elementary 
data items being referenced by instructions employing the CORRESPONDING 
expression (unless compiler option SPEC is set). 

The output error message listing with the internal name ERRORF I LE Is an 
optional line printer file which is created when the compiler option 
ERRLIST is set. This file Is not available to ESPOL and Is normally 
employed when jobs are run from a remote terminal using CANOE. In such 
cases, ERRLIST is automatically set and the file is assigned to the re- 
mote device. File ERRORF I LE may also be used with jobs Input from the 
console or card reader. The file Is limited to a width of 72 characters 
thus allowing it to be output to the remote device (or card punch) with- 
out truncation of characters. When a syntax error is detected, the 
offending card image Is written on this file with an error message and 
pointer to the syntactical item in question being written on the follow- 
ing 1 Ine of text. 

The ESPOL ccmpller may be used to produce an object code output file on 
a deck of EBCDIC-coded punched cards or on a tape. This ccmpller file, 
with an internal name of DECK, is created when the compiler option DECK 
is set. File DECK is an EBCDIC-coded punch file (U-word records) which 
may be I abel -equated to a tape file If no card punch output Is desired. 
For example: 

<l>ESPOL FILE DECK(KIND=TAPE) 

The COBOL compiler may also produce three additional optional output 
files: a card punch file containing all source-language card images 
which contain syntactical errors and two library files containing por- 
tions (or all) of the source Input. When the compiler option PUNCH is 
set, alt card images containing syntax errors are written to the file 
with the internal name of PUNCH. These cards will be punched in EBCDIC 
even if the input file is BCL-coded. 

When the SAVE compiler control card is employed in a COBOL program with 
a file TITLE immediately following the word SAVE, a permanent library 
file with that TITLE Is created. This file has the internal name SAVE- 
PERM, and records from this file may be recalled, either in the same 
compilation or by other programs in other compilations, by use of the 
FROM <file-title> compiler option where <file-title> Is the same title 
employed on the SAVE card creating the file. The permanent library file 
is EBCDIC-coded, contains H-word records in 420-word bloci<s, and has a 
SAVEFACTOR of 999 days. 

When the SAVE compiler control card Is employed in a COBOL program with 
no file title following the word SAVE, then a temporary serial disk 
library file is created to save portions of the source file to be re- 
called and inserted in a later part of the same compilation. Resetting 
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TABLE 


2-1 . COMPILER INPUT FILES 




COMPILER 


PURPOSE 


KINO 


FILE NAME 


CODE 


RECORD SIZE 


BLOCK SIZE 


COMMENTS 


ALGOL 

OCALGOL 

XALGOL 

BASIC 

COBOL 

ESPOL 

FORTRAN 

PL/I 


Input 

Card 

File 


Card 
Reader 


CARD 


EBCDIC 


U or 
15 words 


Blocked 

or 
Unblocked 


Required. Primary com- 
piler input file. May 
be label-equated to 
another file. CANOE file 
is equated to this file 
automatical ly by CANOE. 
FORTRAN CARD file may 
also be BCD-coded. 


BCL 


10 or 

11 words 


ALGOL 

OCALGOL 

XALGOL 

BASIC 

PL/I 


Input 
Disk 
File 


Serial 
Disk 


TAPE 


EBCDIC 


l") or 
15 words 


'tZO words 


Optional . Secondary 
compi ler input file. 
Selected by setting com- 
piler option MERGE. 
May be label -equated to 
another file, but may 
not be used with CANDE. 
COBOL TITLE is "COBOL/ 
IMAGE". FORTRAN default 
external name Is FORSYM. 


BCL 


10 or 
1 1 words 


150 words 


COBOL 
ESPOL 
FORTRAN 


Input 

Disk 

File 


Serial 
Disk 


TAPE 


EBCDIC 


11. or 


Blocked 

or 
Unblocked 


BCL 


10 or 

1 1 words 


COBOL 


Permanent 
Library Fi le 
cal led by 
FROM 
option 


Serial 

Disk 


SAVEPERMIN 


EBCDIC 


111 or 
15 words 


Blocked 

or 
Unblocked 


Optional . TITLE is not 
labet-equatable and is 
specified on FROM card. 




BCL 


10 or 
1 1 words 



o 

3 



o 

* 
> 









TABLE 2-1 . 


COMPILER INPUT FILES (Cent) 




COMPILER 


PURPOSE 


KIND 


FILE NAME 


CODE 


RECORD SIZE 


BLOCK SIZE 


COMMENTS 


COBOL 


Permanent 
Library File 
called by 
COPY 
statement 


Serial 
Disl< 


LIBRARY 


EBCDIC 


H or 
15 words 


Blocked 

or 
Unblocked 


Optional . TITLE is not 
label-equatable. Called 
by "COPY <1 ibrary-name>", 
where <1 i brary-naine> is 
the f i le title. 


6CL 


10 or 

1 1 words 


ALGOL 
DCALGOL 
FORTRAN 
PL/I 


Library 
include 
file 


Serial 
Disk 


Internal or 
external 
name may be 
g 1 ven on 
SINCLUOE 
card 


EBCDIC 


H or 
15 words 


J42O words 


Optional. Fi le opened by 
INCLUDE card bearing the 
appropriate external name 
(title) or internal name 
of the f i le. Maximum of 
five levels of nesting 
permi tted. 


BCL 


10 or 

1 1 words 


150 words 


ESPOL 


Library 
include 
file 


Serial 
Oisl< 


Internal or 
external 
name may be 
given on 
SINCLUDE 
card 


EBCDIC 


]l^ or 
15 words 


Blocked 

or 
Unblocked 


BCL 


10 or 
1 1 words 



> 
z 
o 

w 

o 
o 



o 
z 









TABLE 2-2 


. COMPILER OUTPUT Fl 


.ES 




COMPILER 


PURPOSE 


KINO 


FILE NAHE 


CODE 


RECORD SIZE 


BLOCK SIZE 


COMMENTS 


ALGOL 


Object 


Serial 










Saved if compilation for 


DCALGOL 


code 


Disk 


CODE 


Hexa- 


30 words 


150 words 


1 ibrary sped fled. 


XALGOL 


file 






decimal 






SAVEFACTOR.999 (30 for 


BASIC 














FORTRAN). Discarded 


COBOL 














after execution if com- 


FORTRAN 














pi le and go specified. 


PL/I 














Discarded if syntax 
errors are discovered, 
not opened or if compile 
for syntax is specified. 
The default file TITLE 
after compi lat ion is 


ESPOL 


Object 


Serial 


CODE 


BCL 


30 words 


300 words 




code 


DIsl< 










the program name on 




file 












COMPILE card (modified 
by subprogram ID when 
separate compilation 
is used). For CANDE, 
file TITLE becomes 
CANDE <flle-name> 
OBJECT. File TITLE 
during COBOL compila- 
tion is "COBOL/CODE". 



O 

S 









TABLE 2-2. COMPILER OUTPUT FILES (Cont) 




COMPILER 


PURPOSE 


KIND 


FILE NAME 


CODE 


RECORD SIZE 


BLOCK SIZE 


COMMENTS 


ALGOL 

DCALGOL 

BASIC 

COBOL 

FORTRAN 

PL/I 


Updated 
symbol ic 
code 
file 


Serial 

Disk 


NEVTAPE 


EBCDIC 


11) words 
except 15 
words for 
ALGOL, 
DCALGOL 


i»20 words 


Optional output produced 
when compiler option NEW 
is set. Various 
SAVEFACTORs apply: ALGOL, 
DCALGOL, XALGOL, BASIC - 
999; COBOL - 99; ESPOL, 
FORTRAN - 10. This file 
is label-equatable, but 
is not used with CANDE 
jobs. FORTRAN default 
external name; FORSYM. 


XALGOL 
ESPOL 


Update 
symbol ic 
code 
file 


Serial 
Disl< 


NEUTAPE 


BCL 


10 words 


150 words 


ALGOL 

DCALGOL 

BASIC 

COBOL 

FORTRAN 


Line 
printer 
1 isting 


Line 
Printer 

or 
Backup 
Disk 


LINE 


EBCDIC 


22 words 


22 words 


Optional and label- 
equatable. Produced 
by setting LIST, 
LISTP, or LISTl com- 
pi ler options. The 
FORTRAN default ex- 
ternal f 1 le name Is 
LINE. 


XALGOL 
ESPOL 


Line 
printer 
1 isting 


Line 
printer 

or 
Backup 
Disk 


LINE 


BCL 


I 7 words 


17 words 



o 

s 



o 
o 









TABLE 2-2. 


COMPILER OUTPUT FILES (Cont) 




COMPILER 


PURPOSE 


KIND 


FILE NAME 


CODE 


RECORD SIZE 


BLOCK SIZE 


COMMENTS 


ALGOL 


Error 


Line 










Optional . Selected 


OCALGOL 


I i sting 


Printer 


ERRORFILE 


EBCDIC 


12 words 


12 words 


when ERRLIST compiler 


XALGOL 




or 










option is set. Pro- 


BASIC 




Backup 










vides error messages 


COBOL 




Disk 










and erroneous-card 


FORTRAN 














images. For CANDE 


ESPOL 














jobs, ERRORFILE is 


PL/I 














automatical ly label- 
equated to the re- 
mote terminal enter- 
ing the job and the 
file is automatical ly 
provided. The FORTRAN 
default external name 
is ERRORFILE. 


ESPOL 


Tape file 


Card 










Selected by setting 




containing 


Punch 


DECK 


EBCDIC 


1^ words 


1^ words 


compiler option DECK. 




object code; 












The tape is suitable 




used to pro- 












for input to SYSTEM/ 




duce card 












PUNCH; it may be 




deck 












label-equated to tape 
punch during compila- 
tion. 


COBOL 


Punch 


Card 










Optional . Selected by 




input re- 


Punch 


PUNCH 


EBCDIC 


10 words 


Unblocked 


setting PUNCH compi ler 




cords con- 












option. All card images 




taining 












containing syntax errors 




syntax 












are placed in EBCDIC on 




error 


^ 


^ 








^^^file to be pun^Md. 



o 

3 



TABLE 2-2. COMPILER OUTPUT FILES (Cont) 



COMPILER 


PURPOSE 


KIND 


FILE NAME 


CODE 


RECORD SIZE 


BLOCK SIZE 


COMMENTS 


COBOL 


Permanent 
I ibrary 
file 


Serial 


SAVEPERM 


EBCDIC 


!^ words 


Blacked or 


Optional . Permanent 
1 ibrary file created 












unblocked 


when SAVE <f i le-ti tle> 














option is used. 
















SAVEFACTOR = 999- 
TITLE of file is 




















specified on the SAVE 










BCL 


10 words 




card. 


COBOL 


Temporary 

library 

file 


Serial 
Disk 


SAVEFILE 


EBCDIC 


\h words 


210 words 


Optional . Discarded 














after compl lation is 














terminated. TITLE = 
















"COBOL/SAVE". Created 
















by use of SAVE card 
















(wi th f i le-name 
















omi tted) . Recal led 
















by FROM option. 





















o 
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SAVE delimits the portions of the source input to be saved, and a FROM 
<sequence-nuniber> card is used to recall this saved input where 
<sequence-number> Is the sequence number of the SAVE option card ini- 
tiating the save of the source code desired. The temporary file has 
the internal name SAVEFILE and the TITLE COBOL/SAVE, and contains 
EBCDIC-coded I'l-word records in 210-word blocks. Following compilation 
of the program, the temporary library file is discarded. 

Compiler File Tables 

The available compiler input files are listed in table 2-1, and the 
available compiler output files are listed in table 2-2. These tables 
denote the compilers which are associated with each file, the purpose 
served by the file, the file KIND, the file name, the character code 
employed in the file, and the size of the file record and bloclt. These 
tables also include brief commentaries of each file. 

COMPILER CONTROL CARDS 

The manner in which B 6700 compilers handle source language input may be 
controlled by the user. To a limited degree the user may specify the 
extent to which the input source code is to be examined for errors, the 
manner in which the compiler is to receive this source input, and the 
form of the generated compiler output. The controlling information may 
be input to the compiler at any point within the primary or secondary 
input files by means of a compiler control card {or card Image in the 
case of disk or tape Input). A compiler control card is identified by 
the appearance of a dollar sign (S) in an appropriate column of the 
card. The control information is punched on this card following the 
dollar sign. For PL/ I , control card specifications are enclosed in 
quotation marks. For FORTRAN input the dollar sign must appear in col- 
umns 1 or 2 of the card, with control information being punched in col- 
umns 2 or 3 through 72 (sequence numbers fall in columns 73 through 80) . 

For ALGOL, DCALGOL, ESPOL, and XALGOL input the same compiler control 
card format Is followed as for FORTRAN input except that the dollar sign 
may be punched on the card in either column 1 or on the first nonblank 
character position after column 1. The control information may then be 
punched in the succeeding columns (through column 72); sequence numbers 
fall in columns 73 through 80. When the dollar sign appears in a card 
column other than column 1, this compiler control card image will be 
included in the new source language files as well as in the output list- 
ing if such output files are generated. If the dollar sign appears in 
column 1, the control card image will not be included in the new source 
language file; this card image will appear on the output listing only 
if the compiler option "$" is set. Regardless of the column in which 
the dollar sign is placed on a compiler control card, the compiler con- 
trol information following that dollar sign will be obeyed for the com- 
pilation in progress. No part of the compiler control information (in- 
cluding the dollar sign) may be placed after column 72 of the card. 
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For COBOL input the dollar sign may appear in either colunn 7, 8 or 1- 
if it appears in colimn 7 or 8, columns 1 thru 6 are to be either a se- 
quence nunber or all blanlcs. If the $ appears in column 8, the $ card 
image is placed in the new symbolic- if a $ appears in column 1 or 
colimn 7 that $ card is not written to the new symbolic. Control card 
information follows the dollar sign and may not extend past column 68. 

For BASIC input the dollar sign may appear in the first nonblank column 
of the card or in the first nonblank column of the card following the 
statement number. Compiler control information may be inserted in a 
CANOE file at any point in that file by creating records which have the 
dollar sign in the first nonblank character position following the 
statement number. The compiler control information follows the dollar 
5 ign. 

The compiler control information may consist of an option action (or 
actions), an option (or options), and/or option parameters (i.e., 
literals associated with various options). These items are discussed 
in the following paragraphs. 

Option Actions 

Option actions include SET, RESET, POP, SET =, and may be omitted 
(not specified). (The "SET =" option action is not provided by the 
COBOL, BASIC, or FORTRAN compilers.) The range of the option action is 
the option list which follows it on the compiler control card. If the 
option action is omitted, the option(s) which follow wilt be set and all 
other options {except ERRLIST for ALGOL and OCALGOL, LIBDOLLAR and 
B6700 for COBOL, and user options) will be reset. 

This does not apply for special -action compiler options such as 
AREACLASS, FROM, GO TO, INCLUDE, LEVEL, LIMIT, and PAGE. These seven 
options cannot be set or reset in the normal sense, and their appearance 
on compiler control cards with omitted option actions causes no other 
option to be reset. 

If no option action and no options or parameters appear on a compiler 

control card, then the resulting action will be to delete from the 
secondary input file the card image with a sequence number identical to 
the sequence number on this compiler control card. For ALGOL, DCALGOL, 
ESPOL, and XALGOL, the dollar sign on this control card must appear in 
column 1, 

If the option action is SET, the option(s) following the option action 
will be set and the state of the other compiler options will be un- 
changed (the default setting if not previously specified). If the 
option action is RESET, the option(s) following It will be reset and 
the state of all other options will be unchanged. If the option action 
is POP, then the option(s) which follow it will revert to their immedi- 
ately previous setting. The "SET =" option action will be discussed In 
a later paragraph. 
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An option whose default state is RESET is initially assigned a ^8-bit 
stack filled with O's; an option whose default state is SET is initially 
assigned a 'iB-bit stack with a 1 on top and O's in the remaining posi- 
tions. Each SET option action then causes the stacks allocated to the 
designated options to be pushed down one bit and a 1 to be placed on 
the top of each of these stacks. Each RESET causes the appropriate 
stacks to be pushed down one bit and a to be placed on the top of 
these stacks. POP causes the stacks corresponding to the designated 
options to be popped up one bit, causing the associated options to re- 
vert to their previous state. Since the size of these option stacks is 
^8 bits, a maximum history of ^8 states may be recorded. When a com- 
piler control card appears with an option and an omitted option action, 
then the stack record of option state histories Is discarded, negating 
the accuracy of the POP option action. 

The "SET =" option section allows the state of one compiler option to 
control the setting or resetting of another compiler option. This con- 
struct is known as an "explicit set," and has the following syntax: 

<explicit set> : := SET <option> = <cond i t ion><user option> 

<cordition> : := NOT <empty> 

<option> ;:= <standard opttonxuser option> 

<user option> : := {an identifier, other than a standard option or a 
parameter, which may have previously appeared on 
a compiler control card} 

<standard option> ::= {any option provided by the compiler} 

<empty> : := {blank} 

An example of the explicit set is: 

SET LIST = NOT MYOPT 

which sets the standard option LIST to the opposite state of the user 
option MYOPT. 



The explicit set does not apply to the COBOL, BASIC, or FORTRAN compilers 
and user options are not implemented for these two languages. Any user 
option may be used to control the setting of any other option {user or 
standard) by use of an explicit set. When an explicit set appears in a 
compilation deck, the state (set or reset) of the user option following 
the equal sign is evaluated. The option preceding the equal sign is 
then set to the same state (if <condition> is <empty>) or to the op- 
pos i te state (if <condi t ion> is NOT) and this setting is recorded in the 
option's history stack. If the user option has not previously been 
either set or reset, it is assumed to be reset. 

Options 

B 6700 compiler options are presented in table 2-3 and discussed in 
later paragraphs. PL/I compiler options are discussed at the latter 
portion of this section. 
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OPTION 


COMPILERS 








ALGOL 


BASIC 


COBOL 


DCALGOL 


ESPOL 


FORTRAN 


XALGOL 


NDL 


BINDER''' 


AREACLASS 


X 




X 


X 












ASCI 1 












X 








AUTOBIND 


X 






X 




X 








BCD 












X 








60 L 


X 






X 




X 








BEGINSEGMENT 


X 






X 


X 










BIND 


X 






X 




X 








BINDER 


X 






X 




X 








BINSEO 














X 






BUMP 










X 










B2500 






X 














65500 












X 








B5700 
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OPTION 


COMPILERS 1 


ftLGOL 


BASIC 


COBOL 


DCALGOL 


ESPOL 


FORTRAN 


XALGOL 


NDL 


BINDER'^ 


B6700 






X 














67700 












X 








CHECK 


X 


X 


X 


X 


X 


X 


X 






CODE 


X 


X 


X 


X 


X 


X 


X 


X 


X 


COOEN 


















X 


COHP 






X 














COPY 












X 








COUNT 










X 










DEBUG 






X 






X 








DECK 










X 










DUMPINFO 


X 






X 


X 










EBCDIC 












X 








ENDSEGHENT 
■•^Despite the 
available r 


X 
fact tha 
eference. 


the Bl^ 


OER is no 


X X 
t a compI ler, BINDER 


options are listed here as 


an easily 



o 



TABLE 2-3. COMPILER OPTIONS (Cont) 



ERRLIST 

EXTERNAL 

FORMAT 

FREE 

FREETAPE 

FROM 

GLOBAL 

GO TO 

GRAPH 

HOST 

<identif ier 

INCLNEW 

INCLUDE 

INFO 
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ALGOL BASIC 



INITIALIZE 
INSTALLATION 
INTRINSICS 
LEVEL 

LiniT 

LINE INFO 

LINESIZE 

LIST 

LISTDELETED 

LISTP 

LIST! 

LOADINFO 

LONG 

MERGE 
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COMPILERS 






ALGOL 


BASIC 


COBOL 


DCALGOL 


ESPOL 


FORTRAN 


XALGOL 


NDL 


BINDER* 


MONITOR 










X 


X 








NEW 


X 


X 


X 


X 


X 


X 


X 


X 




NEUID 






X 














NEUSEGMENT 












X 








NEWSEdERR 


X 




X 


X 


X 


X 


X 






NORMAL 










X 










NOUARN 












X 








OLDBASIC 




X 
















OLDEXPO 










X 










OMIT 


X 






X 


X 




X 






OMITDEBUG 












X 








OPT 












X 








OPTIMIZE 






X 
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ALGOL 


BASIC 


COBOL 


DCALGOL 


ESPOL 


FORTRAN 


XALGOL 


NDL 


BINDER* 


OWNARRAVS 












X 








PAGE 


X 




X 


X 


X 


X 


X 






POOL 










X 










PUNCH 






X 














PURGE 


















X 


READLOCK 










X 










SAl/E 






X 




X 










SECGROUP 






X 














SEGS 


X 






X 


X 




X 




X 


SEPARATE 


X 






X 










X 


SEQ 


X 


X 


X 


X 


X 


X 


X 


X 




SEQERR 


X 


X 


X 


X 


X 


X 


X 






SINGLE 


X 


X 


X 


X 


X 


X 


X 


X 
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OPTION 


COMPILERS 










ALGOL 


BASIC 


COBOL 


DCALGOL 


ESPOL 


FORTRAN 


XALGOL 


NOL 


BINDER* 


STACK 


X 


X 


X 


X 


X 


X 


X 




X 


STOP 












X 






X 


SUPR5 












X 




X 




SYNTAX 




















S36O 






X 














TIME 


X 






X 




X 


X 




X 


TRACE 






X 






X 






X 
X 


USE 




















USASI 






X 














«ECTORMODE 












X 








VERSION 


X 






X 


X 










VOID 


X 


X 


X 


X 


X 


X 


X 


X 




UOIDT 


X 


X 


X 


X 


X 


X 


X 


X 


X 


WARN 
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OPTION 


COHPILERS 




ALGOL 


BASIC 


COBOL 


DCALGOL 


ESPOL 


FORTRAN 


XALGOL 


NDL 


BINDERS 


XDECS 


X 






X 


X 










XREF 


X 


X 


X 


X 


X 


X 








XREFS 


X 






X 


X 










$ 


X 


X 


X 


X 




X 


X 
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Options offered by the B 6700 compilers are discussed alphabetically in 
the following paragraphs. The default setting of each option is shown 
in parentheses following the name of the option; the effect of setting 
the option is described in the accompanying paragraph. (The default 
state of the LIST option is SET and the default states of all other 
options are RESET unless the compiler is utilized through the CANDE 
language. If the compiler is called from CANDE, the default state of 
the LIST option is RESET and the default state of the ERRLIST option is 
set.) The compiler options are: 

AREACLASS (cannot be SET or RESET) 

The proper format for this compiler option is: AREACLASS <integer>,^ 
where <integer> is any non-negative integer less than 256. This option 
assigns the value of <integer> to the AREACLASS attribute of the object 
code file when such a file is produced by the compiler. Option 
AREACLASS should appear on a con^iler control card with an omitted 
option action. 

ASCII 

The capability of handling data and source programs in ASCII has been 
added to the software. In general, all ccmpilers {excepting ESPOL and 
XALGOL) will accept source programs in ASCII. By use of the MCP soft 
translation feature, data files can be accepted by setting filetype to 
eight on label equation cards. Some specific changes to individual com- 
pi lers follow. 

For ALGOL, a new type of ASCII has been implemented. Character arrays 
may be declared to be of ASCII type. Pointers become ASCII pointers 
by giving them a length attribute of seven (although each ASCII charac- 
ter still takes up eight bits). 

ASCII may be used in the TRUTHSET and TRANSLATETABLE constructs to permit 
software comparisons and translations within the ASCII character set. 
Because of hardware limitation, however, it is not permitted to replace 
an ASCII pointer for a specified number of digits. In addition, the 
integer and double type transfer functions for pointers are not avail- 
able for ASCII pointers. These may result in errors at execution time. 

The implementation of ASCII in COBOL permits internal usage of ASCII 
data. This may be done by adding the declarative USAGE IS ASCII. 
Such usages for fields declared at other than the 01 level must be con- 
tained within 01 level fields declared as ASCII usage. 

All legitimate non-mixed mode comparisons will work correctly. In 
addition, certain mixed mode comparisons have been implemented. ASCll- 
BCL comparisons will use the ASCII collating sequence for comparisons, 
while ASCII-EBCDIC comparisons will use the EBCDIC collating sequence. 
Pure ASCII operations will operate according to the ASCII collating se- 
quence . 
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Nuneric and numeric edited items are not permitted in ASCII. A USAGE 
IS ASCII field may not liave subordinate COHP , COHP-2, or DISPLAY-1 
i terns . 

Files for which the first RECORDAREA is declared as USAGE IS ASCII 

will be assigned an internal mode of ASCII. These files will, therefore 

return ASCI I data. ' 

The string delimiting character in ASCII FORTRAN source decks remains 
the apostrophe. Two apostrophes must appear adjacent to each other in- 
side a string to indicate one apostrophe in the resulting datum. All 
comparisons are based upon the EBCDIC collating sequence. 

AUTOBIND (SET or RESET) 

Autobinding is a compiler option which combines the processes of com- 
pi ing and program binding into one job. During compilation, the com- 
piler produces a set of instructions to be passed to the BINDER. In 
many cases, these BINDER instructions are self-sufficient for binding 
purposes and the user need not be concerned with BINDER control cards. 
In those cases where BINDER instructions are required, the user may 
insert his own BINDER control cards. 

The autobinding feature of the compiler is involved by the dollar option 
AUTOBIND. The AUTOBIND option may be set or reset at any point through- 
out compilation. However, it is recommended that it be set or reset 
only once at the beginning of compilation for the following two reasons: 

a. Only the status of AUTOBIND at the end of compilation is sig- 
nificant. Specifically, if four procedures are being compiled, 
the first three with AUTOBIND reset and the last one with AUTO- 
BIND set, the binder will still attempt to bind all four pro- 
cedures to the specified HOST. 

b. Compile and go on a separate procedure with AUTOBIND reset, 
will result in the HCP attempting to execute the procedure as 
soon as it is compiled. This may result in errors as the pro- 
cedure has not yet been bound into a HOST. If AUTOBIND is set 
throughout compilation, execution of the resultant program 
will take place after binding. 

In ALGOL a separate procedure ccmpiled at level two or an outer 
block may serve as a HOST for binding. In FORTRAN, a main 
program may serve as a HOST. Separate ALGOL procedures com- 
piled at level three (default level) or FORTRAN subprograms 
may be bound into a HOST. At most, one HOST may be compiled 
in a job along with any number of separate procedures or sub- 
routines. In ALGOL, the HOST must be the last program unit 
compiled. If an appropriate HOST file is compiled with AUTO- 
BIND set, it is assumed to be the HOST for binding. This assump- 
tion cannot be overridden by either of the methods given next 
for sped fying a HOST. 
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If no eligible HOST is being compiled, a HOST must be specified. Two 
methods are available: 

<l> COMPILER FILE HOST (TITLE = FtLEIDl/ /FILEIDN) 

or a BINDER HOST card, such as 

$ HOST IS FILEIDl/ /FILEIOH; 

The code file of any level three procedure compiled with AUTOBIND set 
is marked as (non-executable). If not executed via inter-program commun- 
ication, the procedure must be bound into a HOST file by the BINDER be- 
fore being executed- 

Code files of any level three procedures (or higher) compiled are purged 
after being bound into a HOST by AUTOBIND. To retain such as code file, 
it is necessary to refer to it specifically in a BINDER control state- 
ment. Either of the following statements will allow the procedures code 

file to remain: 

$ BIND PROCEDURENAME 



$ EXTERNAL PROCEDURENAME 

The first statement performs the same function as the default compiler- 
generated bind statement, except the code file will not be purged. The 
second statement instructs the BINDER not to bind the procedure into the 
HOST even though it has been compiled with AUTOBIND set and there is an 
external reference to it in the HOST. 

BCD (RESET) 

The FORTRAN compiler accepts 6-bit BCD-coded characters as input if the 
input file is labeled using a <1> BCL card (not the BCL compiler option) 

and if the compiler option BCD is set. Once BCD is set within a file, 
it may not be reset within that file. 

BCL (RESET) 

When the compiler option BCL is set, the default character size is 6-bit; 
otherwise, the default character size is 8-bit. 

BEGINSEGMENT 

Dollar options BEGINSEGMENT and ENDSEGMENT have been implemented in 
ALGOL and ESPOL to allow further user control of procedure segmentation. 
Procedures encountered between the BEGINSEGMENT and ENDSEGMENT will all 
be placed In the sane segment. 
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The ENDSEGHENT must appear after the last source image of the last 
procedure in the user segment. ' 

Only procedures and blocks completelv contain,rf i„=PH 

the seg,«„t may be included inV^^er ITXu ' ' '"'""'"'^ '" 

User segments may be nested: that is a Rrri wcrrwcuT 

user segment. In this case an ENDSI^rHfMT f? ''"' ^""'^ '" ^ 

currently being compHed ENDSEGMENT applies to the user segment 

pIle^VrocIdufrTs'^SoSEGHENT"" "' ''^""'"1 "' ' "^^^""' =-" 

External procedures may not be declared in a user segment. 

Forward procedure declarations are not affected by user segmentation. 

A procedure may not be split across user segnents. 

code^inVuSEkEGSF»T'?"'"L"''°" "'°'" ' "°' "" """ '' ="=^ i>^.Ui^„^ 
exa^ le- "^^"^^'^"E'*^ invokes a procedure in that USERSEGMENT. For 

S BEGINSEGHEKT 
REAL PROCEDURE P; 

BEGIN 
P:-l; 

END; 
REAL R:.P; 
S ENDSEGMENT 

will result in incorrect code. 

Warning Messages : 

If more than one S BEGINSEGMENT appears before a procedure the warrino 
message EXTRA $BEG INSEGHENT IGNORED will be printed. warring 

If a S ENDSEGMENT appears when the user is not controlling segmentation 
the warning message EXTRA ENDSEGMENT IGNORED will be printed. ""°"' 
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Explanation of Error Messages : 

1. External procedures illegal in a user segment: 

An external procedure declaration has appeared In a user segment. 

2. User segments may contain only procedures: 

An attempt has been made to include a non-procedural block in a 
user segment. 

3. Illegal BEG INSEGMENT or ENDSEGMENT: 

A BEGINSEGMENT or ENOSEGMENT card has been seen outside declarations. 
k. A procedure may not be split across segments: 

ENDSEGMENT missing after nested USERSEGMENTED procedure. 
5- ENDSEGMENT required; 

A BEGINSEGMENT appeared and there was no ENDSEGMENT. 
6. User segment may not have save procedures (ESPOL only): 

An attempt was made to include a save procedure in a user segment- 

BIND (AUTOBINDING Only) 

Format is similar to dollar card, but it is used to pass control state- 
ments to BINDER when AUTOBINDING to ALGOL, DCALGOL, and FORTRAN. 



BINDER (AUTOBINDING Only) 

Allows passing of dollar cards to BINDER when AUTOBINDING in ALGOL, 
DCALGOL, and FORTRAN when immediately following the S sign. The compiler 
passes the remainder of the card intact wi th a $ sign in front. 

BINSEO (RESET) 

When set, the XALGOL compiler option, BINSEQ, causes the character com- 
parisons in string scan statements, string transfer statements, and con- 
ditional expressions to be made according to the B 6700 BCL collating 
sequence. When BINSEQ is reset, then such comparisons will be made on 
the basis of the XALGOL (B 5700 BCL) collating sequence. (Character 
comparisons will be considerably faster when BINSEQ is set.) 
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BUMP TO 

The BUMP TO dollar parameter provides for Incrementing the resequence 
number to produce a specified contents for the least significant one 
to seven digits of the resequence number. The syntax is: BUHP TO 
<diglt strlng>; the succeeding sequence number will be bumped to the 
lowest number ending in the specified string. Normal resequencing will 
then continue (BUMP TO Is meaningful only when resequencing). 

The following examples show the current reseq number, the BUMP argument, 
and the new reseq number: 

OLD: 12340000 123'i5678 1 23'i5678 I23I15678 
BUMP TO: 0000 0000 5000 6000 
NEW: 123'l0000 12350000 12755000 12346000 

BUHP or BUMP TO may be used for the $ card BUMP option. 

B2500 (RESET) 

B2500 is a COBOL compiler option pertaining to all models of the B 2500, 
B 3500, B 3700, and B 4700 systems. (See B6700 option for additional 
system option descriptions.) 

BSSOO (RESET) 

When set, the B 5500 option causes the B 6700 compiler to become com- 
patible with the B 5500 (and B 5700) system. 

B5700 (RESET) 

B5700 Is a COBOL compiler option pertaining to all models of the 
B 5500 and B 5700 Systems. (See B67OO option for additional system 
option descriptions.) 

B6700 (SET) 

B6700 Is a COBOL compiler dollar option which restricts recognition of 
reserved words. Setting of a system option excludes from recognition as 
a reserved word any word which Is reserved on the B 6700 compiler, but 
not reserved on the system indicated by the system option which is then 
set. Thus, the word MODIFY is reserved only when the system option 
B6700 IS set, but when B670O is not set, the word MODIFY may be declared 
to be (and used as) a data-name, procedure-name, etc. 

A system option may be set by a S CARD or by a $ SET CARD. Any attempt 
to POP or RESET a system option will result in a warning message and 
the system option will be ignored. Setting of a system option causes 
all other system options to be reset. A $ CARD without SET, POP, or 
RESET will reset all options except those specified on the S CARD and 
will leave the system option set to B6700 unless some other system op- 
tion IS specified by that $ CARD. If no $ CARD is used, then B6700 is 
assimed. 
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Under control of the system options, several new words have been added 
to the reserved word list. The uses of these words are described in 
the COBOL manuals for the applicable systems. The following is a list 
of these new words with indication of the system option setting(s) 
which cause them to be recognized as reserved words: 



62 


B5700, 


62500 






CMP 


B5700, 


62500 






CMP-I 


B57O0, 


62500 






PC 


B5700, 


B2500 






«D 


B5700 








SV 


B57O0, 


62500 






REMARKS 


B57O0, 


62500, 


USASI , 


S360 


KOTE 


B5700, 


B2500, 


USASI , 


S360 


UNIT 


B6700, 


62500, 


USAS 1 , 


S360 


PROCESSING 


B2500, 


USAS 1 , 


S360 




OC 


66700, 


65700, 


62500 




VA 


B6700, 


65700, 


B2500 




VALUES 


B6700, 


B5700, 


USASI, 


S360 


OTHERWISE 


B6700, 


62500, 


USASI 




PT-READER 


62500 








PT-PUNCH 


62500 








TAPE-7 


62500 








TAPE-9 


B2500 








TAPE-PE 


62500 








DISK 


62500 









B7700 (RESET) 

B7700 is a FORTRAN compiler option which specifies that code is to be 
tuned for the B 7700 execution rather than tuned for B 6700 execution, 

CHECK (RESET) 

When set, the CHECK compi ler option causes the source-language input to 
be sequence-checked and sequence errors to be listed on the output list- 
ing. In the ALGOL and DCALGOL compilers, the sequence numbers of the 
output symbolic file are also checked for errors and handled in the same 
manner as input sequence errors. When CHECK is reset the compilers make 
no check of sequence numbers. (See SEQERR and NEWSEQERR.) 

CODE (RESET) 

When set, the CODE compiler option causes the output listing to contain 
the object code generated by the compiler. 

CODEN (RESET) 

COOEN is a BINDER option which, when set, causes the input object code 
to be included in the output listing. 
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COMP (RESET) 

COMP is a COBOL compiler option which controls the manner in which 77- 
level COMPUTATIONAL items (not COMP-i items) are stored in memory. When 
COMP is set, all such COMPUTATIONAL items are grouped into a data array. 
A data descriptor is placed in the program stack, and all 77-level COM- 
PUTATIONAL items are referenced by means of this descriptor. When COMP 
is reset, each COMPUTATIONAL item is assigned a location in the program 
stack (just as COMPUTATIONAL- 1 items are) and each COMPUTATIONAL item 
may then be accessed directly. 

COPY (RESET) 

COPY is a FORTRAN option which when set causes symbolic card images to 
be included from a named file. The file name appearing in the copy con- 
trol statement is prefixed by "FTNLIBR" to obtain the title of the file 
to be included. 

COUNT (RESET) 

COUNT is an ESPOL compiler option which, when set, counts entries to 
MCP procedures. This information is placed on the file titled COUNTS/ 
<MCP codefile TITLE> (e.g., COUNTS/SYSTEH/MCP) which may be processed 
by the SYSTEM/COUNTANALYZER program. This program may be initiated by 
the "CA" system input message. 

DEBUG (RESET) 

DEBUG is a COBOL and FORTRAN compiler option which, when set, causes 
lists of stack locations and names, scanned entities, and compiler pro- 
cedure entries and exits to be included in the output listing. This 
option is intended primarily to facilitate compiler development and its 
function may change without notice. 

DECK (RESET) 

The ESPOL compiler option, DECK, when set causes a code file to be gen- 
erated on compiler output file DECK. This is an EBCDIC-coded magnetic 
tape file that may be used as input to utility program SYSTEM/PUNCH to 
create a card deck. (File DECK may be label -equated to a card punch to 
directly produce a card deck.) When set, option DECK causes option POOL 
to be set also; thus, data pools will be made SAVE arrays and included 
in the output file. 

DUMPINFO 

This dollar option which is used with the LOADINFO dollar option and 
INFO file, enables the user to save or load the contents of the main 
table in the ALGOL and ESPOL compilers via the file. The tables saved 
include INFO, ADDL, TEXT, and STACKHEAD arrays, plus several simple 
var iabl es. 
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Expected usage is in conjunction with separate compilation of procedures. 
One would typically compile all GLOBAL declarations and dump the tables 
to file INFO. Subsequent compilations of procedures merely load the 
INFO and GO TO the start of the procedure symbolic. 

Example (ESPOL) : 

<l>COMPILE MAKE/INFOFILE ESPOL LIBRARY 
<l>ESPOL FILE TAPE-SYMBOL/MCP 
<l>ESPOL FILE INFO=MY/1NFO 
<I>BCL 

$ MERGE 

1 

<GLOBAL DECLARATIONS> 

$ DUMP INFO 

] 
<l>ENO 

<l>COHPILE HY/MCP ESPOL LIBRARY 
<l>ESPOL FILE TAPE-SYNBOL/HCP 
<l>ESPOL FILE INFO=MY/INF0 
<I>BCL 

%%% LOAD THE GLOBALS INTO TABLES. 

[ 

$ LOAD INFO 

<AODITIONAL GLOBAL DECLARATIONS> 

1 

5 SET LIST STACK <ONE OR MORE SEPARATE PROCEDURE 

DECLARATIONS> 
<I>END 

Example (ALGOL): 

<1>C0NPILE HAKE/INFOFILE ALGOL LIBRARY 

<l>ALGOL FILE INFO-MY/INFO 

<I>DATA 

[ 

<GLOBAL DECLARATIONS) 

5 DUMP INFO 

1 
END. 
<1>END 

<l>CONPILE MY/PROGRAM ALGOL LIBRARY 
<l>ALGOL FILE INFO-MY/INFO 
<I>DATA 

%%% LOAD THE GLOBALS INTO TABLES. 

1 

S LOAD INFO 

<ADDITIONAL GLOBAL DECLARATIONS) 

) 

<SEPARATE PROCEDURE DECLARATION) 
<I>END 
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The ALGOL dollar card options, DUMPINFO and LOADINFO, have been 
modified to facilitate their use with intermediate level global binding. 
These changes are: 

1. The DUMPINFO and LOADINFO options may be followed by either 
an internal file name or an external file name and terminated 
with a period. This file name information is in a format sim- 
ilar to the include dollar option. This permits selective INFO 
dumping at several points and selective INFO loading more than 
once throughout a compile. 

2. DUMPINFO and LOADINFO must now be the last option appearing 
on a dol lar card. 

3. When a new LOADINFO is done, all old INFO structure in ALGOL 
is removed. Thus, compiling different portions of the same 
program, even if they operate in different environments, may 
now be done in the same compilation. 

^. LOADINFO changes all variables in INFO to be globals and all 
procedures already compiled to be forward. This means that an 
INFO file created by a DUMPINFO done immediately before a 
procedure in a normal compile will be suitable for future use 
as globals if one wishes to separately compile that procedure. 

In general, the effect of these changes is to considerably increase the 
number of places where DUMPINFO and LOADINFO may appear In order to 
produce and use an INFO File suitable for separate compilation. Caution 
is generally required only when variables with the same name are declared 
at different levels; a separate compilation will only be able to access 
the last such variable seen before the DUMPINFO occurred. 

EBCDIC (SET) 

When the FORTRAN compiler option EBCDIC is set the default character 
size is 8-bit; otherwise, the default character size is 6-bit. 

ENDSEGMENT 

See BEGINSEGMENT description. 

ERRLIST (RESET, SET when used with CANDE) 

When set, the ERRLIST compiler option causes an error listing to be gen- 
erated on compiler output file ERRORFILE. When an error is detected in 
input source code, then the offending line of code, the error message, 
and a pointer to the syntactical item in question will be written on two 
lines in the file ERRORFILE. This option is provided primarily for use 
when the compiler is called from a remote terminal by the CANDE lan- 
guage, but it may be used regardless of how the compiler is called. 
When the compiler is called from CANDE, option ERRLIST is automatically 
set and ERRORFILE Is automatically equated to the remote device in- 
volved. (For the ALGOL and DCALGOL compilers, once set, ERRLIST may be 
reset only through a RESET, POP, or "SET" control statement.) 
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EXTERNAL (AUTO BINDING ONLY) 

EXTERNAL causes designated program units to remain external to the pro- 
gram. (BINDER will normally attempt to bind all external program units.) 

FORMAT (RESET) 

FORMAT is an ALGOL and OCALGOL compiler option which, when set, causes 
several blanks to be included in the output listing after each pro- 
cedure declaration to aid reading of the listing. 

FREE (RESET, SET lor CANDE) 

This compiler option, when set, causes the compiler to accept free form 
input from the source file called CARD. This option is initially set 
for all jobs initiated through CANDE, and reset otherwise. 

A dollar sign ($) in column one or a dollar sign in column two with a 
blank in column one causes the FORTRAN compiler to interpret this card 
image as a compiler option card. 

The FREE option in COBOL allows all input to begin in column seven of 
the card or tape image. A hyphen In column seven indicates continuation, 
while a $ In column seven indicates a dollar card. 

To put a comment in the symbolic file, an asterisk {*) or a slash (/) 
indicates that the rest of the card is a comment, provided that it 
appears in column seven. 

All PARAGRAPH, SECTION, and DIVISION headings must begin in columns 

7-11 inclusive. All other source images may begin at any positron in 
the record. Under this option, columns 73 " 80 are stilt treated as 
comments. 

When the FREE option is used with CANDE, certain conventions are fol- 
lowed by CANDE in mapping the input line into a record. For COBOL 
symbolic files, the sequence number is right-justified in columns one 
through six; the text field (beginning with the first non-numeric char- 
acter or the seventh character, whichever occurs first), is placed in 
the record beginning at column seven. For FORTRAN, the sequence number 
is right- just i f ied in columns 73 through 80; the text field (beg inn Ing 
with the first non-numeric character, or the eighth character, whichever 
occurs first), is placed in the record beginning at column one. Thus, 
the first text character typed by the CANDE user is the first character 
examined by each compiler to analyze free form records. 

FREETAPE (RESET) 

This FORTRAN option, when set, causes the compiler to accept free form 
input from the TAPE file. This option is initially reset. If NEW is 
set and either FREE or FREETAPE is set, the compiler will perform a 
minor amount of editing on the output NEWTAPE file, to ensure that it 
is acceptable as either free or fixed form input. 
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FROM (cannot b« SET or RESET) 

The COBOL compiler option, FROM, when used, must be the first option on 
a compiler control card, with the option action omitted. The proper 
format for the FROM option is: FROM <file part>, where <fi]e part> may 
be either a file title, a file title followed by a sequence number, a 
file title followed by two sequence numbers separated by a hyphen, or a 
single sequence number. The FROM option permits the recall of records 
from permanent or temporary library files to be inserted into the source 
input file. if the word FROM is immediately followed by a file title, 
then the records will be recalled from a permanent file with this title. 
The entire permanent file will be recalled. The file title may option- 
ally be followed by a sequence number. in this case, recall will begin 
at the indicated sequence number in the permanent file {or at the next 
highest sequence number if the given sequence number is not in this per- 
manent file) and will continue until the end of the" permanent file. If 
the file title is followed by a sequence number which is in turn followed 
by a hyphen and a second sequence number, then recall will begin with 
the first sequence number and will continue through the second number. 

If the file title is omitted and the word FROM is immediately followed 
by a sequence number, this sequence number must be the sequence number 
of a SAVE compiler option card appearing Jn the same program deck. All 
records (stored in a temporary library file earlier in the compilation 
by the SAVE card with the given sequence number) will be recalled and 
inserted in place of the FROM card. If the sequence number given does 
not correspond to any such SAVE compiler control card, then a warning 
message Is printed and the recall is not performed. 

GLOBAL (RESET) 

This option causes all 01 and 77 level items In the WORKING STORAGE 
SECTION of a COBOL program to assume the descriptive clause GLOBAL. 

GO TO (cannot b« SET or RESET) 

This compiler option, when used, should appear with no other options on 
a compiler control card and must not be preceded by an option action. 
The proper format for the GO TO option is: GO TO -^sequence number>, or 
GO <sequence number>, where <sequence number> Is the sequence number 
appearing on a card image in the TAPE file. The GO TO compiler option 
causes the Input TAPE file to be repositioned so that the next card im- 
age used from this file by the compiler will be the first card image 
with a sequence number greater than or equal to <sequence number>. This 
option cannot be used in a DEFINE declaration or In INCLUDED text. {See 
INCLUDE.) File TAPE must be properly sequenced in ascending order; that 
is, each sequence number on each card image In the file must be greater 
than the preceding sequence number. (Must be disk or disk pack.) One 
can GO TO a lower sequence number. 

GRAPH (RESET) 

This option causes the FORTRAN compiler to draw a graph of the program 
only i f OPT=l is set. 
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HOST 

See AUTOBIND description. 

<id*ntifi«r>(RESET) 

The <identifier> compiler option allows the user to specify user 
options to be employed with the explicit set (SET =) option action. 
<identifier> must not be any identifier which might normally appear on 
a compiler control card bearing standard options, option actions, or 
parameters. When this identifier first appears on a compiler control 
card, it will be recognized as a user option by the compiler. This user 
option may then be used to explicitly set any other option. The fol- 
lowing example shows how to organize a card deck so that specific por- 
tions of source input code can be compiled and listed simply by setting 
a single user option. (See also Sample Card Input Decks.) 
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In the example deck displayed (assuming no $ in source input cards): 

(a) denotes the card bearing the COMPILE and EBCDIC MCP control 
statements. 

(i) defines and sets a user option called MYOPT. 

(tj resets the standard compiler option OMIT. 

(d) sets the standard compiler option LIST. 

(C) returns OMIT and LIST to their states immediately prior to (F) . 

(?) sets OMIT. 

(g) resets LIST. 

(h) returns OMIT and LIST to their states immediately prior to (?) . 

(l) denotes the end of the compilation deck. 

Thus, when MYOPT is set (as it is in this example), the source lan- 
guage information on the cards following (d) will be included in the 
compilation and in the output listing, and the source language informa- 
tion on the cards following (g) will not be included in either compila- 
tion or listing. Conversely, if MYOPT is reset (accomplished by re- 
moving card (b)), the information on the cards following (d) will not 
be included and the information on the cards following (g) will be in- 
cluded in the compilation and listing. The source language information 
on the cards immediately following (b) and (h) will be included in both 
compilation and output listing whether or not MYOPT is set- 

INCLNEW (RESET) 

When set, the INCLNEW compiler option causes source text which is in- 
cluded by use of INCLUDE compiler control cards to be output to file 
NEWTAPE (if NEW is set). If INCLNEW is reset, then the included text 
will not be output to NE\/TAPE. If NEW is reset, the state of INCLNEW 
is ignored. 

INCLUDE (cannot b* SET or RESET) 

The INCLUDE compiler option must appear alone on a compiler con- 
trol card with the option action omitted. The INCLUDE card permits 
indirect source language input to the compiler from files other than 
CARD or TAPE. This card, therefore, is used to specify that a portion 
of another file is to be included in the source language input at the 
point the INCLUDE appears. It is possible for included card images 
themselves to contain INCLUDE cards; however, included text may be 
nested no deeper than five levels. FILETYPE is 7. 
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The proper syntax for the INCLUDE compiler control statement is; 

<include statement> ::= INCLUDE <fi]e option> <sequence option> 

<file option> ::= <empty> | <internal name> | <title> 

<sequence option> : := <empty> j <start option> | <start 

option> <stop option> | <stop option> 

<internal name> : := {program file internal name} 

<title> ::= {file TITLE enclosed In quotes} 

<start option> : := * ] <sequence number> 

<stop option> : := <dash> <sequence number> 

<sequence number> ::= {unsigned integer up to 8 digits long} 

<dash> : := - 
In the INCLUDE control statement, <file option> specifies the file to 
be included. The use of <internal name> allows the name to be used for 
label equation purposes. The use of <title> allows the actual title of 
the file to be included. If <file option> is empty, then the same file 
as the one specified on the previous INCLUDE card at the same level of 
nesting is included. Thus, the first INCLUDE card at any of ttie five 
possible levels of nesting must contain either a <title> or an 
< internal name>. 

<start option> specifies the sequence number of the first card image to 
be included from the file. If <start option> is missing, inclusion will 
begin with the first record of the file; if <start option> specifies a 
<sequence number>, inclusion will begin with that record. If the " 
form of <start option> is used, inclusion will begin at the point at 
which it left off the previous time that inclusion took place on this 
file at this level of nesting. 

<start option> specifies the sequence number of the last card image to 
be included from this file. If <stop option> is missing, then the last 
record of the file will be the last record included. 

INFO (RESET) 

INFO is a COBOL compiler option which, when set, causes the compiler's 
INFO array to be printed whether or not LIST is set, (The COBOL com- 
piler INFO array contains six words for each identifier in a program,) 
This option is intended primarily for compiler development use. 

INITIALIZE (AUTOBINDING Only) 

INITIALIZE is used in intrinsic binding for the purpose of allowing non- 
ESPOL intrinsics to refer to MCP procedures with fixed addresses. 
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INSTALLATION (RESET) 

When set, the INSTALLATION option allows the user to use installation 
(nonstandard) intrinsics. If used, this option must be set before the 
beginning of the source input, and when this option is reset, only 
standard intrinsics may be employed. 

INTRINSICS (RESET) 

The INTRINSICS option causes compilation to occur at level two and 
allows for global declarations. Thus, the separate procedures being 
compiled may be bound afterwards into the intrinsic file. When used 
with the BINDER, the BINDER generates an intrinsic file from scratch 
as opposed to binding to a HOST intrinsic file. INTRINSICS must be 
set before the first source statement. 

LEVEL (cannot be SET or RESET) 

The LEVEL option, when used, controls the lexicographical level at 
which the compilation is to occur. The proper format for this option 
is: LEVEL <integer>, where <integer> corresponds to the desired level 
number. The LEVEL option should not be preceded by an option action. 
This option allows the user to override the lexicographical levels as- 
signed by the compiler. The. default levels are 2 for programs and 3 
for separately compiled procedures. Only LEVEL cards which appear be- 
for the start of source language input are considered by the compiler. 

LIMIT (cannot b« SET or RESET) 

The LIMIT option, when used, allows the user to control compiler error 
termination. The proper format for the LIMIT option is: LIMIT 

integer . Compilation will be terminated if the number of errors de- 
tected by the compiler equals or exceeds integer . (For the COBOL 
compiler, this checl^ occurs on pass two.) If a limit is not specified 
by a LIMIT card, compilation will terminate after a default maximum 
error limit of 150 is detected. If the compiler is called from CANDE , 
compilation will terminate by default after 10 such errors. For BASIC, 
1 imit by default is 100. 

LINEINFO (RESET, SET for CANDE) 

The dollar card option LINEINFO has been added to all compilers to 
retain source line identification information for diagnostic purposes. 
This saves sequence or line number information at compile time and its 
relation to the code emitted at compile time. If a program should then 
terminate abnorTnally or monitoring is occurring, the line information 
will be displayed or printed, as appropriate. 
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When a program is discontinued for any reason or when a program dump is 
obtained, it is now possible to receive source line identification of 
the point of the program where the error occurred. This facility is 
also provided with the MONITOR and DUMP statements. 

The LINEINFO information may require a significant additional amount of 
disk storage in the code file of a compiled program. For this reason, 
it may not be desirable to retain the option set after debugging is com- 
pleted. 

LINEINFO is automatically set for all compilations ordered through 
CANDE. When binding, the LINEINFO dollar option is set by default so 
that line information is preserved. Program units with and without 
LINEINFO may be combined. Resetting LINEINFO will cause the binder to 
discard all line information. This may be done whether or not any bind- 
ing is done, even if the HOST is a complete program. 

At occurrence of a memory dump under MCP and programs where LINEINFO 
was reset, SYSTEM/DUMPANALYZER can be FAKED OUT to give a dump output 
with benefit of LINEINFO by: 

1. Recompiling MCP and the program that was running with every- 
thing the same except LINEINFO set. 

2. Having these recompiled code files present in the disk direc- 
tory with the exact same title. 

UNESIZE (SET, RESET, or POP) 

The BASIC compiler option LINESIZE allows the user to specify the size 
in words of his output (print) line for particular devices. The allow- 
able size range is (5 LEO LS LEQ 22). This option should be considered 
a program option. Hence, it must appear before the first source image. 
Any setting of this option thereafter will produce an error. 

LIST (SET, RESET for CANDE and BINDER) 

When set, the LIST compiler option causes an output listing to be gen- 
erated on the compiler output file LINE. (This listing Is generated 
on pass two for the COBOL compiler.) If LIST is reset, then only 
syntax error messages and the offending card images which caused the 
errors will be listed. 

LISTDELETED (RESET) 

When set, the ALGOL and DCALGOL compiler option LISTDELETED causes the 
inclusion in the output listing of card images from the secondary input 
file (TAPE) which are replaced, voided, or deleted during the compila- 
tion. Four asterisks will appear on the listing to the left of each 
of these card images. To the right of the card images will appear the 
words: REPLACED (if the card image was replaced by a card in the pri- 
mary input file), VOIDT (if the card image was voided from the input 
file by the VOIDT compiler option), or DELETED (if the card image was 
deleted by a compiler control card with a dollar sign in column I and 
no option actions, options, or parameters). 
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LISTP (RESET) 

When set, the LISTP option causes patches (input records from compiler 
file CARD) to be included in the output listing while records from com- 
piler file TAPE are not included. Thus, patches only will be listed 
when LISTP is set. This option is effective only if the option LIST is 
reset. If LIST is set, then the state of LISTP is ignored. Therefore, 
LISTP or LIST causes an output listing to be generated when set. 

LISn (RESET) 

The COBOL compiler LIST], when set, causes an output listing to be gen- 
erated on pass one of the compiler. This listing will contain the 
source language input and syntax error numbers when such errors occur. 
This listing may be produced whether or not LIST is set. 

LOADtNFO 

See DUMPINFO description. 

LONG (RESET) 

The FORTRAN compiler option LONG, when set, causes the compiler to 
suppress segmentation of program arrays even though they are longer 
than 102^1 words. When LONG is reset, the compiler segments arrays 
greater than 102A words in length into 256-word segments. (No array 
may exceed 65,535 words in length.) 

MERGE (RESET) 

When set, the MERGE compiler option causes primary input (file CARD) to 
be merged with secondary input (file TAPE) to form the total input to 
the compiler. If matching sequence numbers occur in the two input 
files, the primary input overrides the secondary input. When MERGE is 
reset, only primary input is used and secondary input is totally 
ignored. 

MONITOR (RESET) 

This ESPOL compiler option, when set, allows the user to employ the 
monitoring facilities of the HCP. Existing monitoring procedures of 
the HCP may be used or the programmer may recompile an MCP with his 
own monitoring procedure declarations included. (See the B 67OO ESPOL 
Language Information Manual, 500009^.) 

NEW (RESET) 

When set, the NEW compiler option causes a new symbolic file generated 
by the compiler to be placed on compiler output file NEWTAPE. This new 
file is created even if syntax errors are detected in the symbolic in- 
put {from which the new file is constructed) during compilation and may 
be used as a secondary input file by a later compilation. 
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NEWID (RESET) 

The proper format for this COBOL compiler option is: NEUID <string>, 
where <string> is an alphanumeric string one to eight characters long 
enclosed by quotation marl<s C). When NEWID is set with this string 
as a parameter, the output listing and the new source language file 
(file NEWTAPE) will contain this string in columns 73 thru 80 ot eacn 
card image as a new program identification. When NEWID is being reset, 
the string parameter need not appear on the compiler control card 
resetting the option. 

NEW5EGMENT 

The FORTRAN compiler option NEWSEGMENT, when it appears on a dollar 
card, causes the FORTRAN compiler to break the next statement out into 
a new code segment; thus effectively eliminating size restrictions on 
program sub-units. Since getting from one segment requires branching, 
it is suggested that this option be used (if needed) at nodes in the 
sub-program that are passed infrequently (that is, do not segment in 
the middle of a loop) . 

NEWSEOERR (RESET) 

When set the NEWSEOERR compiler option causes the records written to 
file NEWTAPE (the new symbolic file) to be checked for sequence errors. 
As each sequence error is discovered, a warning message is placed on 
the output listing. At the end of the compilation the new source file 
(NEWTAPE) will not be locked (and thus will not be available to the 
user) and a message indicating this will be placed on the output 
listing. Sequence errors detected as a result of NEWSEQERR being set 
will not interfere with a successful compilation (one in which no 
syntax errors are detected). NEWSEOERR is effective even if CHECK is 
reset. (See also CHECK and SEOERR.) 

NORMAL (RESET) 

Enforces gross organization of MCP symbolic file. That is, procedure 
FORWARD by declarations, followed by non-procedure declarations, fol- 
lowed by actual procedure declarations. 

NOWARN (RESET) 

The FORTRAN compiler option NOWARN, when set, causes source input file 
errors which are flagged as warnings to be considered syntax errors. 

OLDBASIC (RESET) 

The dollar card option OLDBASIC has been provided so that when methods 
of handling certain BASIC constructs are changed in B 6700 BASIC, the 
user may avoid these changes by setting the OLDBASIC option. When 
OLDBASIC is set, programs will compile and execute as if the change had 
never been made. 
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OMIT (RESET) 

When set, OMIT causes card Images from both file CARD and file TAPE to 
be ignored. That Is, these card images will not be compiled, although 
they may be listed ard/or included in a new source file. On the output 
listing these images are flagged by the word OMIT. (See also VOID and 
VO I DT . ) 

OMITDEBUG (RESET) 

When this FORTRAN compiler option OMITDEBUG Is set, all debugging state- 
ments are to be treated as if omitted. This also applies to continua- 
tion cards of debugging statements. 

OPT (RESET) 

The value of the OPT compiler option specifies the level of optimization 
to be performed on a given source program. The legal value are 1, 0, 
and - 1 . 

OPTIMIZE (RESET) 

This option when set, causes additional optimizations of object code 
to be done at compile time. 

OWNARRAYS (RESET) 

OWNARRAYS applies the OWN function to arrays. 

OWN (RESET) 

Subroutine variables which are not formal parameters and which are de- 
clared or first appear in a portion of source input where the FORTRAN 
compiler option OWN is set are allocated locations in the D2 program 
stactc. The result of this action is to allow a subroutine variable to 
contain the value it held at the end of the last call on the subroutine 
when that subroutine is called again. 
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For example, consider this subroutine portion of a source language 
input file: 

SUBROUTINE AUGMNT (/X/./V/.Z) 
DIMENSION Z(5), HOLD (5) 
$SET OWN 

INTEGER A 
DIMENSION B(5) 
1 = 1+1 
$RESET OWN 
X=X+I 
H0LD(1)-Y 
Y-Y+A 
A.HOLO(l) 
DO 1 J=l,5 
II0LD(J)=Z(J) 
Z(J)-Z(J)+B(J) 
1 B(J)-HOLD(J) 
RETURN 
END 

In this example, the OWN option is used to indicate that the variables 
A and I and the elements of the array B are to retain the.r values 
between subroutine calls. When the subroutine is fi rst cal ed, these 
items are initialized to zero as is normally the case with local 
variables. Thus, the function of this subroutine is to add I to X 
during the first call, 2 during the second call, 3 during the third 
call etc During each call, the variable Y and the elements of the Z 
array are increased by the values passed to these formal parameters 
when the AUGMNT subroutine was last called. During the first call on 
AUGMNT, these six parameters are increased by zero. 

A further restriction is that an array will be affected by the OWN 
option only if the specification statement (e.g., the DIMENSION 
statement) associated with the array lies in a region of code where the 
OWN option Is set. 

PAGE (cannot b* SET or RESET) 

The PAGE compiler option should appear on a compiler control card with- 
out an option action preceding it. When a PAGE card appears, the out- 
put listing is skipped to the top of the next page. 

POOL (RESET) 

POOL is an ESPOL compiler option which, when set, causes the compiler 
to make all data pools SAVE (nonoverlayable) arrays. Thus, If a program 
does not have presence bit capability, the data pools will be available 
to the program. (If option DECK is set, POOL is automatically set.) 
If POOL is reset, the compiler will generate non-present descriptors 
pointing to the data pools in the code file. 
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PUNCH (RESET) 

PUNCH is a COBOL compiler option which, when set, causes all source 
input card images containing syntax errors to be written on compiJer 
output file PUNCH. The card images are punched in EBCDIC format even 
if the input file is coded in BCL format. 

PURGE (AUTOBINDING Only) 

PURGE causes all input files specified in the <file I ist> to be removed 
from the disk directory after binding. Only files opened by BINDER will 
be surged. 

READLOCK (RESET) 

The ESPOL compiler option READLOCK, when set, causes the BUZZ intrinsic 
to emit an increased amount of debugging code. Normally used in the 
case where the MCP gets hung in a READLOCK loop. 

SAVE (RESET) 

When set, SAVE specifies that all source language card images between 
the control card setting the SAVE option and the first control card re- 
setting the SAVE option are to be placed in a permanent or temporary 
file. If the file is to be a permanent library file, the title of the 
file must immediately follow the word SAVE on the control card. If no 
title appears following SAVE, the library file will be discarded when 
the compilation is ended. Once set, SAVE may be explicitly reset by 
another compiler control card of the form "S RESET SAVE" or "$ POP 
SAVE". SAVE may also be reset implicitly by another compiler card of 
the form "$ FROM <sequence number>" or "S FROM <file title>". SAVE may 
even be reset implicitly by a compiler control card of the form 
"S SET SAVE", which terminates one group of records and starts a new 
group of records to be saved. 

SECGROUP (RESET) 

SEGS (RESET) 

When set the SEGS compiler option causes an output listing to be gen- 
erated {when LIST is reset) containing the beginning and ending segmen- 
tation messages. Since these messages are printed when LIST is set the 
SEGS option has effect only when LIST is reset, 

SEPARATE (RESET) 

When set, the FORTRAN compiler option SEPARATE causes a separate object 
code file to be generated during compilation for each complete program 
unit in a FORTRAN program (for comp i le- to- 1 ibrary jobs). A FORTRAN 
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program unit may be a main program, a subroutine subprcqram, or a func- 
tion subprogram. SEPARATE can only be set before the first noncoiiment 
card in tile source deck, and once this option is set it cannot be reset. 
The fiies generated by the SEPARATE option will have TITLE'S based upon 
the program name appearing on the COMPILE control card. Tlie TITLE of 
the file containing the main program object code will be identical to 
the prooram name. The TITLE of each code file corresponding to sub- 
programs will be constructed from the program name with the right-most 
identifier in this name (e.g., B in A/B) being replaced by the sub- 
program name. 

SEO (RESET) 

When set the SE(J compiler option causes new sequence numbers to be as- 
signed to the card images on the output listing file and on the new 
symbolic file when LIST and NEW are also set. The proper format for the 
SEO option is: SEQ <sequence base> <sequence increment>, where ^ 
^sequence base> is an unsigned integer and <sequence increment> is a 
Pius sign {+) followed by an unsigned integer. Either one or both of 
these two parameters may be omitted (empty) and may appear on a compiler 
control card other than the SET SEQ card. The starting sequence number 
is specified by <sequence base> , and each successive sequence number 
assigned exceeds the previous sequence number by the amount specified 
by the integer part of <sequence increment*. When one or both of these 
parameters are missing on a SEQ card, then default values are assigned 
to these items. The default values for both <sequence base> and 
<sequence increment* are both 1000 (except for the COBOL compiler, for 
which the default values are both 10). 

SEOERR (RESET) 

When set SEQERR causes the input source language to be checked for 
sequence errors. If any sequence errors are detected they are indicated 
on the output listing with warning messages if, at the end o a 
compilation, any sequence errors have been detected as a result of 
SEUERR being set, then the object code file will not be ocked and 
consequently will not be available to the user. Thus, although a pro- 
gram may compile successfully, it will not create a code f '<=''"- 
quence errors are detected. The setting of option CHECK has no effect 
on "he operation of SEQERR. (See also CHECK, NEWSEQERR.) 

SINOLE (RESET) 

When set, the SINCLE compiler option causes the output listing to be 
single-spaced. When SINGLE is reset, then the output listing is 
double-spaced. 



5000722 
PRINTED IN US. AMERICA 



2-'''' B 6700 / B 7700 SYSTEM SOFTWARE HANDBOOK 



COMPILER CONTROL CARDS 



SPEC (RESET) 

The SPEC option for the COBOL compiler, when set, suppresses the in- 
olusion ,n the output listirig of warning messages, sequence error warn- 
ing messages, and the names of elementary data items being referenced 
by statements containing the CORRESPONDING clause. 

STACK (RESET) 

When set, the STACK compiler option causes relative staclc addresses 
(address couples) for all program items to be included in the output 

STOP (AUTOBINDING Only) 

STOP causes the BINDER to stop interpreting input statements and option 
cards, causing them to be flushed out. 

SUPRS (RESET) 

The FORTRAN compiler option SUPRS, when set, causes the suppression of 
warning messages in the output listing. 

SYNTAX (RESET) 

The NDL option SYNTAX, when set, prohibits creation of the SYSTEM/NIF 
SYSTEH/REOUESTIMAGE, and DC/CODE files. 

S360 (RESET) 

S360 is a COBOL compiler option which is to be used to improve compa- 
tib,l,ty with the I8M-360 and IBH-570 systems. (See B6700 option for 
additional system opt ion descri pt ions . ) 

TIME (RESET) 

The TIME compiler option, when set with LIST reset, causes an output 
isting to be generated containing compilation "trailer" information 
(e.g., number of errors, number of segments, compilation time, etc ) 
Since this information is printed when LIST is set, the TIME option 
has effect only when LIST is reset. 

TRACE (RESET) 

The TRACE option, when set: 

a. sets LIST, CODE, STACK, and DEBUG options when used with the 
FORTRAN compiler. 
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b. when used with the BINDER, causes the listing to contain a 
record of BINDER procedure entries and exists as well as the 
contents of certain BINDER arrays. 

c. when used with the COBOL compiler, causes the contents of the 
first two words of that compiler's ACCUM array to be included 
in the output listing for each syntactic item scanned in the 
compiler'f first pass. This information is produced by the 
COBOL compiler's scanner, and this option is primarily intended 
for compiler development use only. 

USASI (RESET) 

USASI is a COBOL compiler option which is used for programs which con- 
form to the COBOL standard as specified in the "USASI COBOL, X3-23, 
1968" publication. (See B6700 option for additional system option 
descr ipt ions . ) 

USE (AUTOBINDING Only) 

USE provides to BINDER a technique for matching identifiers in a host 
with differing identifiers in a separate program unit. 

VECTORMODE (RESET) 

When set and only if the FORTRAN compiler is capable, this option pro- 
vides the mode compiler with the vector mode capability. 

VERSION vv.ccc (RESET) 

When SET, the ALGOL and ESPOL VERSION compiler option allows the user 
to have the patch version specified on the printout. As used by the 
system software, the first v represents the mark number, the second v 
represents the level number, and the ccc represents the cycle. 

For a user to gain access to these numbers, two additional COMPILETIHE 
options have been implemented in ALGOL and ESPOL: 

a. COMPILETIME (20) yields the version in integer. 

(1) COMPILETIHE (20) DIV 10 yields the mark number (for 
system software), 

(2) COMPILETIME (20) MOD 10 yields the level number (for 
system software) . 

b. COMPILETIME (21) yields the cycle in integer. 

When compi 1 i ng from patch with mark set, then: 

a. If on the %K CARD the first string after the noise word is a 
string of three or fewer digits, then 
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(1) The ALGOL compiler will replace the three digit patch 
number with the string of 10 characters as follows: 
VERSION (2 characters), PERIOD CYCLE (3 characters), 
PERIOD CYCLE (3 characters), PERIOD PATCH (3 characters); 
i.e., VV.CCC.PPP. 

(2) The ESPOL compiler will replace the string three digit 
patch number with the string of eight characters as 
follows: VERSION (2 characters), CYCLE (3 characters), 
PATCH (3 characters). When printed on a listing, the 

-ESPOL compiler will insert periods between the VERSION 
and CYCLE. CYCLE and PATCH. 

b. If on the $# CARD the first string after the noise word is a 
string other than three or fewer digits, then the eight-char- 
acter string will be used and the VERSION information will be 
ignored . 

When compiling with NEW SET and a $ VERSION card appears in the symbolic, 
then if patch deck contains a S VERSION card, the new symbolic will be 
updated to the version and cycle on the last S VERSION card in the patch 
deck if the sequence number is less than the one on the symbolic. 

VOID (RESET) 

When set, VOID causes all input from files CARD and TAPE (except com- 
piler control cards) to be ignored by the compiler until VOID is reset 
or is popped Into a reset state. The input ignored will not be listed 
or included in a new symbolic file even with LIST and NEW set. {See 
also VOIDT and OMIT.) 

VOIDT (RESET) 

When set, VOIDT causes only primary input to be compiled; all secondary 
input from file TAPE is ignored (except compiler control cards) until 
VOIDT is reset. This option is effective only when the option MERGE is 
set, since secondary input is ignored unless MERGE is set. The ignored 
input will not be listed or included in a new symbolic file even when 
LIST and NEW are set. {See also VOID and OMIT.) 

WARN (RESET) 

When set, the BINDER option WARN generates an output listing containing 
warning messages when LIST is reset. These messages are automatically 
provided on the output listing when LIST is set. 

XDECS (RESET) 

The XDECS compiler option, when set, causes the occurrences of program 
declarations to be recorded for cross-referencing purposes when XREF is 
set. This option is initially set when XREF is set and may be set, 
reset, popped, etc., as many times as desired. The XDECS option is 
used in conjunction with XREF to select the portions of source code to 
be examined for information concerning declaration locations. 
(See XREF.) 
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XREF (RESET) 



The XREF compiler option, when set, causes (in the event of =""« = ';;' 
compilation) an index of all identifiers used ,n the "-"P' '.''J P™^"" 
Z h. written on the file LINE. This operation is accomplished by the 
to be written on tne rue l i . _:„ (_,,i.j cveTCM/VBFCANAI VZEB 




;hr;;ue;;e numb;;; of the card images on which the identifier appears. 
The LIST option need not be set to generate an output 1 i st i ng ot tn i s 
cross-reference information. XREF sliould be set before any of the 
source input is processed, and once set, this option may not be reset. 
(See also XDECS and XREFS.) 

XREFS (RESET) 

The XREFS compiler option. «hen set, causes program '<'l"l[f\<" ^f"" 
ences to be noted for cross-referencing purposes when XREF is set. 
This option is initially set when XREF is set and may be set, reset, 
popped, etc., as many times as desired. The XREFS option is used ,n 
conjunction with XREF to select the portions of source code to be 
examined for information concerning the location of '""^"''''^^ = =^ 
ences. Only references of identifiers which are declared in Portions 
of th; source file where XDECS is set will be cross-referenced. (See 
XREF and XDECS.) 

$ (RESET) 

When set the $ compiler option causes images of all compiler control 
cards in the input file(s) to be included in the output listing. 

PL/I COMPILER OPTIONS 

The PL/I compiler options are classed as Boolean options parameter 
options, and yalue options. A description is provided for each of these 
options. 

Boolean Options 

For each <Boolean option> there is within the PL/I compi ier a '.2-bit 
stack in which the current and previous settings of the option (i.e., on 
or off) are stored. The bit at the top of the stack represents the cur- 
rent state of the option (1 indicates the option is "on", and '"^icates 
"off") When an option is "SET", its stack is pushed down one bit and a 
1 is put on top of the stack. "RESET"ing an option causes the corres- 
ponding option stack to be pushed down one bit and a to be put on top 
of the stack. "POP" causes the option stack to be pushed up one bit, 
thus causing the current setting to be lost and the last previous setting 
to become the current setting. For the initial release, the defau t 
state of ERRORS, LISTI, MODELII, SIXTY, and STHTNO is "SET , and all 
other Boolean options are reset by default. ERRLIST is set by default 
for CANDE jobs. 
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ATTRIB 



When set, ATTRfB will cause an output listing to be generated which 
contains each identifier declared in tiie program to be listed along with 
the explicitly declared attributes for each identifier and those attri- 
butes which are given to each identifier by default. ATTRIB may be set 
selectively for a given block rather than the entire program. This is 
done by setting ATTRIB before the block's BEGIN or PROCEDURE statement 
and then popping ATTRIB after the corresponding END statement. 

CODE 

When set, CODE causes an output listing to be generated which contains 
the object code generated by the compiler. 

CONTROLS 

When set, CONTROLS will cause compiler control cards which begin in 
column one to be included in the LlSTl output, if such an output file 
is generated. Control cards which begin in a column other than one will 

? ,rf,i;Lf f""' °" '-'^\' ""'P"'' " "=" " ="V new source language files 
(NEWTAPEI or NEWTAPE2) if such files are generated. 

ERRLIST 

The ERRLIST option is intended for use with compilations initiated 
through CANDE. When this option is set (as it is by default for CANDE 
jobsl card .mages and error messages corresponding to syntax errors in 
the program are placed in a file assigned to the remote terminal being 
used. (See "WARN".) ^ 

ERRORS 



Setting the option ERRORS will cause an output listing of e,,„,. 
detected during compilation to be generated. For each statement which 



rors 



contains an error, the st; 



tement is first listed as it appeared on the 



rntput card .mage and is preceded by its statement number. Then, if 
there was any preprocessor expansion necessary to the statement, the ex- 
panded statement is listed, otherwise the statement (unexpanded) is 
l.sted. Th.s second listing of the statement is then marked where the 
error occurred and an explanation of the error is printed below the state- 
ment. 

EXTERN 

Setting EXTERN will produce a listing similar to the listing produced by 
sett.ng ATTRIB except that only those identifiers which are declared with 
the attr.bute external will be included in the listing. 
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FLEVEL 

The FLEVEL option specifies that if during compilation the conpiler en- 
counters a PL/I construct which the IBM F-LEVEL PL/t compiler would 
handle differently from the B 6700 PL/ I compiler, then it should be 
handled according to F-LEVEL. 

LIST 

Setting and resetting the LIST option sets and resets, respectively 
both LISTl and LIST2. 

L1ST1 

LISTl, when set, causes a card image listing consisting of the merged 
card and tape input files to be generated. 

LIST2 

LIST2, when set, causes a listing consisting of the merged card and 

tape input files plus all expansions of preprocessor (i.e., compi le-time) 

statements to be generated. 

MERGE 

When set, MERGE causes primary input {file CARD) to be merged with 
secondary Input (file TAPE). If matching sequence numbers occur in the 
two input files, the primary input overrides the secondary input. 

MODELII 

MODELII, when set, causes code to be generated suitable for execution 
on a Model II processor. When MODELII is reset, the generated code is 
suitable for execution by a Model I processor. 

MULTIPLE 

When MULTIPLE is set, causes the last name of the program file name to 
be replaced by the name of the main entry point of the procedure. If 

SEPARATE is not set, the name of the first procedure will have the last 
name of the program file name replaced by the name of the main entry 
point of the procedure. 

NEW or NEW1 

When set, NEW {or NEWI) causes a new symbolic file generated by the com- 
piler to be placed on the output file NEWTAPEl . This new symbol Ic file 
consists of the merged card and tape input files. This new file may be 
used as a secondary input file by a later compilation. 
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NEW2 

When set, NEW2 causes a new symbolic file generated by the compiler to 
be placed on the output file NEWTAPE2. This new symbolic file consists 
of the merged card and tape input files plus all expansions of pre- 
processor (i.e., compi le-time) statements. This new file may be used 
as a secondary Input file by a later compilation. 

NEW1SEOERR 

When set, NEWISEQERR will cause records written to the file NEWTAPEl 
to be checked for sequence errors. As each sequence error is discovered, 
a warning message Is placed on the output listing and also displayed on 
the SPO. If such errors occur, then at the end of compilation the file 
NEWTAPEl will not be locited and thus will not be available to the user. 

NEW25EOERR 

The option NEW2SEQERR performs the same function for the NEWTAPE2 file 
as the NEWISEQERR option performs for the NEWTAPEl file. 

NOBINDINFO 

When NOBINDINFO Is set, information for the BINDER Is not placed into 
the code file. NOBINDINFO is reset by default. 

SEG or SEGS 

When set, SEG (or SEGS) will cause beginning and ending segmentation 
messages to be included in the output listing. 

SINGLE 

Setting and resetting the SINGLE option sets and resets, respectively, 
both SINGLEI and 5INGLE2. 

SINGLE1 

When set along with the option L I STl , SINGLEI will cause the listing 
produced by LISTl to be single spaced. If SINGLE) is not set, the list- 
ing will be double spaced. 

SINGLE2 

When set along with the option L1ST2, SINGLE2 will cause the listing 
produced by LIST2 to be single spaced. If SINGLE2 is not set, the list- 
ing will be double spaced. 

SIXTY 

When set, SIXTY specifies that the PL/I program will use the 60-cbaracter 
set, otherwise the t|8-character set will be used. SIXTY is set by default. 
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STACK 

When set, STACK causes relative addresses (address couples) for all 
program items to be included in the output listing. 

STMTNO 

When set, the STMTNO option causes the sequence number of the line 
causing fault termination of program execution to be included in the 
generated error message. Setting STMTNO produces a larger code file than 
would otherwise be created by the compiier. 

TIME 

When set, the TIME option causes trailer information (i.e., number of 
errors, compilation times, etc.) to be placed in the compiler output 
file. This option has effect only when LIST is reset as this trailer 
information appears automatically when LIST is set. 

TRACE 

Setting and resetting the TRACE option sets and resets, respectively, 
both TRACEENTRYS and TRACELABELS. 

TRACEENTRYS 

When set, the TRACEENTRYS option causes execution-time monitoring of 
procedure entries to be performed. Each procedure entry is indicated by 
a message in the SY5PRINT file. 

TRACELABELS 

When set, the TRACELABELS option causes execution-time monitoring of 
program flow through labels on executable statements. Each such label 
encounter is Indicated by a message in the SYSPRINT file. 

VOID 

When set, VOID will cause all input from files CARD and TAPE (except 
compiler'control cards from the file CARD) to be ignored until VOID is 
RESET or POP'ed into a reset state. The ignored input will not be 
listed or included in a new symbolic file. 

VOIDT 

When set, VOIDT causes only primary input to be compiled; all secondary 
input is ignored until VOIDT is reset. The ignored input will not be 
listed or included in a new symbolic file. 



"SET NEWl" 

"SET CONTROLS LISTl RESET LIST2" 
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Param«t«r Options 

For each <paraneter> of a <parameter option> there is within the PL/I 
compiler a J»2-word stack in which the history of the <parameters>s value 
are stored. Setting (or resetting) a <parameter option> causes each 
<parafneter> stack associated with that <parameter optian> to be pushed 
down one word and the new value of that parameter to be placed on the 
top of that stack. If one or more of the <parameter>s on the control 
card is <empty>, then the last previous setting is used and placed in 
the appropriate stack. Popping a <parameter option> causes all <para- 
fneter>s associated with the option to be discarded and to be replaced 
by the prior value from the appropriate stack. 

The <parameter option>s CARDCOL, TAPECOL, INCLCOL, COLl and C0L2 are 
used to define how the columns of input card images and the columns of 
output images for new symbolic source files will be used. By using 
these options the user can specify which columns are to be used for 
program text, which columns are to be used for a sequence number prefix 
and which columns are to be used for the sequence number. However, the 
following restrictions are placed upon the user: 

1. The program text must occupy at least one column but no more 
than 80 col umns. 

2. The sequence number prefix may not occupy more than six columns. 

3. The sequence number may not occupy more than 12 columns. 

'4. The combined length of the columns for program text, sequence 
number prefix and sequence number must be at least one column 
but no more than 80 columns. 

The default column settings are: 

1. Columns 1-72 for program text. 

2. Columns 73-80 for sequence number. 

3- No columns for sequence number prefix. 

COLl causes the specified <parameter>s to be changed for the symbolic 
output files LISTI and NEWTAPEl when such files are generated. 

C0L2 causes the specified <parameters>s to be changed for the symbolic 
output files LIST2 and NEWTAPE2 when such files are generated. 

CARDCOL causes the specified parameters to be changed for reading input 
from cards. 

TAPECOL causes the specified parameters to be changed for reading input 
from file TAPE. 
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INCLCOL causes the specified parameters to be changed for reading 
from pre- processor (I.e., compi le-time) INCLUDE-f i les- 

Example : 

"SET CARDCOL (TEXT = 1 FOR 72 SEQ = 73 FOR 2, 6)" 
This control card specifies that for input from cards the program 
text will be in columns 1-72, sequence numbers will start in column 
73 with columns 73 and Ik being used for a sequence number prefix 
and the next six columns (75-80) for the actual sequence number. 

Since the only difference between these column specifications and 
the default value Is that these allow for a sequence number prefix 
in columns 73 and 7^, the above control card could have been written. 

"SET CARDCOL (SEQ = 73 FOR 2, 6)" 

or 
"SET CARDCOL (SEQ = FOR 2 , 6)" 

In these cases the compiler would have used the default <program 
string parameter> of TEXT = 1 FOR 72 and the default sequence 
<starting coIumn> value of 73- 

The <parameter option>s SEQl , SEQ2 , and SEQ are used to define how the 
source language symbolic files are to be sequenced. Associated with 
these options are <sequence base>, <sequence increment> and <prefix>. 
The <prefix> is a string of six or less characters which precedes the 
sequence number and is treated as a comment for sequence checking and 
patching purposes. The default for <prefix> is the null character string. 
The <sequence base> is an <unsigned integer> which specifies the start- 
ing sequence number for resequencing , The default value of the ^sequence 
base> is zero. The <sequence increment> specifies the amount by which 
each new sequence number will exceed the previous sequence number. The 
default <sequence increment> is zero. 

SEQl causes <sequence base>, <sequence increments and <prefix> to change 
as specified for the symbolic files LISTl and NEWTAPEI when such files 
are being generated. 

SEQ2 causes <sequence base> , ^sequence increments and <prefix> to change 
as specified for the symbolic files LtST2 and NEWTAPE2 when such files 
are being generated. 

SEQ specifies both SEQl and SEQ2. 

Exampl e : 

"SET SEQl ('AB' 1000 + 100)" 

This control card specifies that the sequence number field for 
files DSTt and NEWTAPE will consist of a two letter <prefix> and 
that the sequence number will start at 1000 and each following se- 
quence number will exceed the previous number by 100. 
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Valu* Options 

With each <value option> there is associated a single vaiue which, when 
set, remains unchanged throughout the entire compilation. Thus, re- 
setting or popping one of these options once it has been set wiil have 
no effect. 

TITLE 

This option is set by specifying a character string containing less than 
60 characters. This character string will then be used as the title for 
the program and will appear in the heading for each listing specified 
(e.g., LISTl, ATTRIB, ERRORS) as well as on the dateline which appears 
at the top of each page of listing. If this option is not specified, 
the program's object code file name (i.e., the name given on the COMPILE 
card of the program) will be used. TITLE must be set on an input card 
appearing before any input card causing output on LISTl before that title 
Wfll appear In the heading of the LISTl file. 

OPTIMIZE or OPT 

This option is set by specifying an <unsigned integer> which indicates 
the degree of optimization which the user wants the compiler to use 
The lowest and default optimization value is I and the maximum optimiza- 
tion value is 3- 

WARN 

This option is set by specifying an <unslgned integer> which indicates 
the lowest level of error message to be included in the ERROR LISTING 
file and In the file generated by the ERRLIST option. Syntax errors are 
assigned level numbers according to their severity from to 9, with 9 
being the most severe. The default is WARN=0. 

EXECUTION or EXEC 

This option is set by specifying an <unsigned iiiteger> which indicates 
the lowest level of error message which will cause the compilation to be 
aborted. When an error occurs at this level or higher (as described in 
the discussion of "WARN") the code file is not locl<ed and compilation is 
terminated with a "SNTX" message. The default is EXEC=7. 

Example i 
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<l> COMPILE PROG PL/ I LIBRARY 

(1) <l> PL FILE NEUTAPE1 (TITLE - NEW/PROG) 
<l> EBCDIC 

(2) "SET TITLE (PL/I PROGRAM)" 

(3) "SET NEW] NEUISEIIERR LISTI" 

(ll) "SET COLl (TEXT - 1 FOR 70 SEQ = 71 for 3, 7)" 

(5) "SET SEQl ('XYZ' 1000 + 1000)" 



Card (1) specifies the title for the new symbolic file which is to be 
created . 

Card (2) specifies that the title which will appear on all the listings 
which are generated will be PL/I PROGRAM. 

On card (3) NEWI specifies that a new symbolic file consisting of the 
card images will be created on file NEWTAPEl . NEWISEUERR specifies that 
as records are written to NEWTAPEl they will be checked for sequence 
errors. LISTI specifies that as the card images are written to NEWTAPEl, 
they will also be written to an output listing. 

Card W specifies how the card image columns for NEWTAPEi and LISTI 
will be used. 

Columns 1-70 program text. 
Columns 71-/3 sequence prefix. 
Columns 7A-80 sequence number. 

Card (5) specifies the prefix for each sequence number to be XYZ and 
the sequence base and sequence increment to both be 1000. 

If this newly created symbolic file then needed to be patched later, the 
following deck could be used; 

<l> COMPILE PROG PL/I LIBRARY 

(6) <l> PL FILE TAPE (TiTLE= NEW/PROG) 

(7) <l> PL FILE NEWTAPEl (TITLE = NEW/PROG) 
<l> EBCDIC 

"SET TITLE (PL/i PROGRAil)" 

(8) "SET MERGE NEWI NEWISEOERR" 

(9) "SET COLl (TEXT - I FOR 70 SEQ - 71 FOR 3, 7)" 

(10) "SET TAPECOL (TEXT = i FOR 70 SEQ = 71 FOR 3. 7)" 

(11) "SET CARDCOL (TEXT = 1 FOR 70 SEIJ + 71 FOR 3, 7)" 

(patch deck) 



Card (6) specifies that the secondary input file TAPE will be the disk 
file NEW/PROG. 
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COMPILER CONTROL CARDS 



Card (7) specifies that the merged file that wil) be created will be 
placed Of) the NEWTAPEl file and given the name NEW/PROG. 

MERGE on card (8) specifies that the secondary input file TAPE is to 
be merged with the primary input file CARD. 

Card (9) specifies the column arrangement for the output on the new 
symbol ic NEUTAPEI. 

Cards (10) and (11) specify the column arrangements for the secondary 
and primary inputs respectively. This means that the TAPE input and the 
card patch deck must both be in the sane card format. That is: the 
first 70 columns contain program text, the next three columns contain a 
sequence prefix and the last seven columns contain a sequence number. 

SAMPLE CARD INPUT DECKS 

For program compilation the only required cards are a COMPILE card 
(specifying the language in which the program is written), a DATA, BCL, 
or EBCDIC card, source program cards, and an END card, in that order. 
For program execution (ESPOL excluded} the only required cards are the 
RUN (or EXECUTE) card, DATA, EBCDIC, BCL, or ASCI! card if data are to 
be supplied {dependent upon the format of the data cards), and an END 
card. Typical decks for program compilation and execution, together 
with explanations of the cards used, are presented in the following 
paragraphs. When <l> appears in column 1 of an MCP control card, the 
<l> represents an invalid character punched in that column. (One com- 
bination of punches that will produce such an invalid character is 
1-2-3.) 
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SAMPLE DECKS 



COMPILE FOR SYNTAX 

(Card Input Only) 



r 



$SET LIST SINGLE STACK CODE 




<l> EBCDIC or BCL or DATA or ASCII 



( <\> <coinpiler-name> FILE LI NE(TITLE=NEU/NAME) @ 



<l> <compi ler-name> 

OPTION=FAULT,DSED,CCLIST,LONG 



<l> COHPILE PROGRAM/ONE 

<compi ler-name> SYNTAX 



® 



© 



causes syntax check of PROGRAM/ONE written in ore of the B 67OO 
languages. <coiiipi ler-naine> must be supplanted by one of the fol- 
lowing names according to the language in which the source pro- 
gram is written: ALGOL, DCALGOL, XALGOL, BASIC, COBOL, ESPOL, or 
FORTRAN. 

(b) causes memory dump on abnormal termination (FAULT and DSED 

options), listing of control cards (CCLIST option), and suppres- 
sion of segmentation for large arrays (LONG option). <compiler- 
name> must be replaced by any standard compiler name or by 
COHPILER. 



© 



C) assigns the title NEW/NAME to the compiler output file LINE. 
<compi ler-name> must be replaced by any standard compiler 
name or by COMPILER. 

(d) indicates that the source program cards which follow this card 
are punched in EBCDIC, ASCII, or BCL format. {Note that DATA 
and EBCDIC are synonymous.) 

(e) is a compiler control card which causes output listing of source 
cards (LIST option), single-spaced (SINGLE option), containing 
listing of stack assignments (STACK option), and program code 
(CODE option) . 

(V) denotes source cards punched in EBCDIC or BCL (as indicated by 

card (d) ) containing a program wri t ten in the language indicated 
on card ® . 



© 



ndicates an end of the cards to be compiled. 
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SAMPLE DECKS 



COMPILE FOR SYNTAX 

(Card and Disk Input) 




<l> <compi ler-name> FILE TAPE 
(TITLE=PROG/S0URCE) 



<l> COMPILE PROGRAM/TWO 
^compi ler-name> SYNTAX 



® 



(a) causes syntax check of PROGRAM/TWO written in one of the B 6700 

languages. <compi 1 er-name> must be supplanted by one of the fol- 
lowing names according to the language in which the source program 
is written: ALGOL, DCALGOL, XALGOL, BASIC, COBOL, ESPOL, or 
FORTRAN. 



(D 
© 
® 

© 



declares that the code to be patched is contained in the disk file 
titled PROG/SOURCE. <compi ler-name> must be replaced by the same 
name used on card or by COMPILER. 

indicates that the source patch cards and compiler control card 
which follow this card are punched in ASCII, EBCDIC, or BCL 
format. 

is a compiler control card which causes single-spaced listing of 
PROGRAM/TWO source file and patch data (LIST and SINGLE options), 
the compilation of both source file data and patches (MERGE 
option), sequence checking to be performed (CHECK option), with 
sequence errors causing the code file to not be locked (SEQERR 
opt ion) . 

signals the compiler that compilation is to be termi nated when 10 
errors are detected in the input. 
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SAMPLE DECKS 

(?) denotes cards bearing patches to the file PROG/SOURCE written in 

the language indicated on card (a). The sequence numbers contained 
on these cards (starting in column 1 for BASIC, contained in col- 
umns 1 through 6 for COBOL, and contained in columns 73 through 80 
for the other languages) indicate the point of insertion for each 
patch card within the source file data. 



© 



ates an end of the compilation deck. 



COMPILE FOR LIBRARY 

(Card Input Only) 




' <cofnpi ler-name> FILE HEV/TAPE 
(TITLE=THREE/SYHBOL) 



f<l> <compMer-name> FILE CARD{T ITLE-I NPT) 



<l> COMPILE PROGRAM/THREE 
<compi Ier~name> LIBRARY 



® 



® 



causes program PROGRAM/THREE written in one of Che B 6700 lan- 
guages to be compiled and the resultant object code to be saved. 
<compiler-name> must be supplanted by one of the following names 
according to the language in which the source program is written: 
ALGOL, DCALGOL, XALGOL, BASIC, COBOL, ESPOL, or FORTRAN. 

declares that the input source code is contained in the card file 
titled INPT. <compi ler-name> must be replaced by the same name 
used on card ® or by COMPILER in order to indicate that the file 
involved is a compiler file and not a program file. 

@ causes the compiler file NEl/TAPE to be titled THREE/SYMBOL. This 
file will contain the symbolic data written on the source program 
cards, and <compi 1 er-name^ must be replaced in the same manner as 
on card (t) . 

(d) indicates that the following source program cards constitute the 
file titled INPT and that these cards and the compiler control 
card are punched i n BCL format. 

5000752 
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(Y) is a compiler control card which causes listing of PROGRAM/THREE 
source cards (LIST option), creation of the symbolic file referred 
to on card (c) (NEW option), with card images sequenced from 1000 
in increments of 10 (SEQ option with a parameter of 1000+10). 

(f) denotes source program cards to be compiled, punched in BCL (as 
indicated by card (5)) and containing a program written in the 
language indicated on card (a) . 

(QJ indicates an end of the cards to be compiled. 

Note: The creation of the symbolic file (THREE/SYMBOL) is not a neces- 
sary oeeration, but is caused by card (c) and the NEW option on 
card (e) . Similarly, the labeling of the card file I NPT is not 
necessary, but is caused by card (b) and the INPT label on card© 

COMPILE FOR LIBRARY 

(Card and Disk Input) 




<l> <compiler-naf«!> FILE TAPE 
(TITLE=FOUR/SVMBOL 



<l> <compiler-name> FILE NEWTAPE (J) 

(TITLE=FOUR/SyMBOL, KIND-TAPE) 



<\> COMPILE PROGRAM/FOUR 
;compi ler-name> LIBRARY 



® 



(a) causes PROGRAM/FOUR written in one of the B 67OO languages to be 
compiled and the resultant object code to be saved, ''compiler- 
name> must be supplanted by one of the following names according 
to the language in which the source input is written: ALGOL, 
DCALGOL, XALGOL, BASIC, COBOL, ESPOL, or FORTRAN. 
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SAMPLE DECKS 

causes the compiler file NEVfTAPE to be titled FOUR/SYMBOL and _ 
assigned to magnetic tape. This file will contain the symbolic 
data which is the source input for this compilation, and 
<compi Ier-name> must be replaced by the same name used on card 
@ or by COMPILER in order to indicate that the file involved 
is a compiler file and not a program file. 

declares that the input source code to be patched is contained in 
the disk file titled FOUR/SYMBOL. <compi ler-name> must be re- 
placed in the same manner as on card (B) , 

indicates that the source patch cards and compiler control card 
which follow this card are punched in EBCDIC format. 

is a compiler control card which causes listing of PROGRAM/FOUR 
source input (LIST option) containing a listing of the program 
object code (CODE option), the compilation of both source file 
data and patches (MERGE option), and the creation of the symbolic 
file referred to on card (g) (tlEW option), with new source file 
card images sequenced from in increments of 10 (SEQ option with 
a parameter of O+IO). 

denotes cards bearing patches to the ingut file FOUR/SYMBOL writ- 
ten in the language indicated on card (a) . The sequence numbers 
contained on these cards (starting in column I for BASIC, con- 
tained in columns 1 through 6 for COBOL, and contained in columns 
73 through 80 for the other languages) indicate the point of in- 
sertion for each patch card within the source file data. 



(g) indicates an end of the compilation decl<. 
COMPILE FOR LIBRARY 

(Disk Input, Disk File Patches) 







<\> END 


(!) 






<!> <compiler-name> FILE NEtfTAPE 
(TITLE=FIVE/SYMBOL,KlND=TAPE) 


(£) 






<!> <compi ler-name> FILE TAPE 
(TITLE=FIVE/SYHBOL) 


© 




<1> <compiler-name> FILE CARD 
(TITLE=PROG/PATCHES,KIHU=DISK) 


® 






<!> COMPILE PROGRAM/FIVE (a) 
<compiler-name> LIBRARY 
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SAMPLE DECKS 



(a) causes PROGRAM/FIVE written In one of the appropriate B 6700 lan- 
guages to be compiled and the resultant object code to be saved. 
<conipi ler-name> must be supplanted by one of the following names 
according to the language in which the source input is written: 
ALGOL, DCAUGOL, XALGOL, BASIC, COBOL, ESPOL, or FORTRAN, 

(b) declares that patches are to be input from the serial disk file 
titled PROG/PATCHES. <compi ler-nanie> must be replaced by the same 
name used on card (a) or by COMPILER in order to designate it as a 
compi ler input f i le. 

(c) declares that the source input to be patched is contained on the 
serial disk file titled FIVE/SYMBOL. <compi ler-name> must be re- 
placed in the same manner as on the previous card. 

(d) declares that magnetic tape file titled FIVE/SYMBOL is to contain 
the symbolic data consisting of the source input after patching, 
<compi ler-name> must be replaced in the same manner as on card (b) . 



(EJ indicates an end of the compilation deck. 



Note: The first card Image in the patch file (PROG/PATCHES) must be a 
compiler control card. The compiler option NEW must be set if 
the new source data file is to be saved on the FIVE/SYMBOL tape. 
The option MERGE must be set to permit file TAPE to be read. 

COMPILE AND GO 

(Card Input Only, No Execution Data) 




f<l> FILE FNAHE(T!TLE=SIX/A, KIND=DISK) ' 
:|> COMPILE PROGRAM/SIX <comp I ler-name> (a) 



® 



® 



causes the program named PROGRAM/SIX written in one of the B 67OO 
languages to be compiled and the resultant object code to be ex- 
ecuted. <compi 1 er-name> must be replaced by one of the following 
names according to the language in which the source program is 
written: ALGOL, DCALGOL, XALGOL, BASIC, COBOL, or FORTRAN. 



ass igns the title 
;lares i t as a se 



SIX/A to the program fi 
■iai disk fi le. 



e named FNAME and de- 
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SAMPLE DECKS 



(T) indicates that the source program cards {and any compiier control 
cards) which foliow this card are punched in EBCDIC format. 

(O) denotes source program cards punched in EBCDiC format containing 
a program written is the language indicated on card (A;. 

© indicates an end of the cards to be compiled and executed. 

COMPILE AND GO 

(Card and Disk File Input With input Data on Cards) 



I 




<compiler-name> FILE NEtfrAPE(TITLE= 
5EVEK/ SOURCE, KIND-TAPE) 



<1> <compi ler-name> FILE TAPE 
(TITLE=SEVEN/SOURCE' 



<compiler-narae> OPT I ON-CCLIST 



<l> COMPILE PROGRAM/SEVEN <comp i ler-name> (a) 



® 



causes the program named PROGRAM/SEVEN written in one of the ap- 
propriate B 6700 languages to be compiled and the resultant ob- 
ject code to be executed. <compi ler-name> must be replaced by one 
of the following names according to the language in which the 
source program is written: ALGOL, DCALGOL, XALGOL, BASIC, COBOL, 
or FORTRAN. 
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SAMPLE DECKS 



® causes the compilation option CCLIST to be set, resulting in tile 

listing of control cards. <compi ler-name> must be replaced by tlie 
name used on the preceding card or by COMPILER. 

@ causes the compiler input file TAPE to be equated to the serial 
disl< file titled SEVEN/SOURCE. <compi ler-name> must be replaced 
by the compiler name used on card @ or by COMPILER. (The indi- 
cated file contains source data to be patched before compilation 
by the source card patches.) 

® causes the compiler file NEUTAPE to be equated to the magnetic 
tape file titled SEVEN/SOURCE. <compi ler-name> must be replaced 
as on the preceding card. (The indicated file will contain the 
symbolic data which was used as source input by the compiler.) 

© causes the execution option USED to be set, resulting in a program 
dump if the job is operator DSed. 

(V) declares the program file named LINE a serial disk file titled 
OUTPUT/SEVEN. 

® indicates that the compiler control card and source program patch 
cards which follow this card are punched in EBCDIC format. 

(h) is a compiler control card which causes listing of PROGRAM/SEVEN 
source input (LIST option), the compilation of both source file 
(TAPE) data and patches (MERGE option), and the creation of the 
symbolic file referred to on card (E) (NEW option). 

(Y) denotes cards bearing patches to the input file SEVEN/SOURCE 
written in the language indicated on card (A). The sequence 
numbers appearing on these cards (placed according to the lan- 
guage used) indicate the point of insertion for each patch card 
within the source file data. 

Q) indicates that the following cards are punched in BCL format and 
comprise records for the program input card file titled INFILE. 
This card terminates the compilation portion of the deck. 

® denotes cards punched in BCL format and bearing input data for the 
execution of PROGRAM/SEVEN. 

® indicates an end of the execution portion of the deck by termi- 
nating the input data cards. 
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SAMPLE DECKS 



PROGRAM EXECUTION 

(Input Data on Cards) 



f<l> EBCDIC INFILE 



f<l> STACK-I 



f<l> CORE-1500 



(<\> OPTION-BACKUP 



;l> RUN PROGRAM/FOUR 




f<l> PR0CESSTIME=60 



® causes the previously-corapi led-to-1 ibrary program, PROGRAH/FOUR, 
to be executed. 

(b) causes the execution option BACKUP to be set, resulting in the 
output of print files to bacl<up disk. 

(c) declares that the program requires a maximum of 1500 words of core 
memory. 

@ declares that the program requires a maximum of 600 words of worl>- 
ing stack in main memory. 

(D specifies that the raaximuni processing time allowed for this job is 
60 seconds. 

(?) indicates that the following cards are punched in EBCDIC format 
and comprise records for the program input card file titled 
INFILE. 

(g) denotes cards punched in EBCDIC format and bearing input data for 
the execution of PROGRAH/FOUR. 

(h) indicates an end of the card deck. 
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SAMPLE DECKS 



PROGRAM EXECUTION 

(No Input Data) 



c|> RUN PROGRAH/EIGHT; END 



© 



© 



causes the object code file of the previously-compiled program, 
PROGRAM/EIGHT to be executed. The program in question requires 
no input data. 



PROGRAM BINDING 

Although this section is primarily concerned with B 67OO program com- 
pilation and execution decks, an example of a B 67OO BINDER deck is 
provided here as a reference too). 



i. 



f BIND = FROM CODEFILE/-; 



M 



f BIND 



H 



SUBA FROM VERSION/SUBA; 



:^ 







f <l> EBCDIC 



© 



[ <l> BINDER FILE HOST (TITLE = HOST/FILE) © 

<l> BIND BOUND/PROGRAM] WITH BINDER FOR LIBRAR¥(a) 



(a) causes the binding of a program named BOUND/PROGRAHl to occur, 
with the resultant object code being placed in a library file with 
the TITLE of BOUND/PROGRAM 1 , 

(b) equates the internal BINDER file HOST with the library (serial 
disk) file with the TITLE of HOST/FILE. 
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PROGRAM BINDING 



(?) indicates that the following cards ih this deck are punched in 
EBCDIC format. 

fl^l is a BINDER option card which specifies that an output listing be 
® ;:„er!led (LIST option) containing a listing of the BOUND/PROGBAMl 
object code (CODE option). 

rTl is a BINDER source card declaring that the separately-compiled 
^ code contained in the library file VERSiON/SUBA be bound into the 
host in place of the program unit named SUBA. 

(T) is a BINDER source card declaring that the separately-compiled 
^ code contained in library files with CODEFILE as the first (left- 
roost) identifier of their TITLE'S be bound into the host in place 
of program units which haye names identical to the rightmost iden- 
tifiers of the TITLE'S of these CODEI^ILE files. 

@ indicates an end of the BINDER decl<. 
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SECTION 3 
MISCELLANEOUS SOFTWARE 
INFORMATION 

FILE IDENTIFICATION AND FILE STRUCTURE 
Format of File Names 

File names are composed of a series of ident i f iers (f i 1 e identifiers, 
volume identifiers, and file directory identifiers) separated by 
slashes. An identifier is delimited by either a blank or a slash and 
may be of any length, although only the first 17 characters of an 
identifier are used if the identifier is more than 17 characters long. 
As many as H identifiers may be used in constructing a file name. 

Examples of file names follow : 



B/C 

D/E/F 

G/H/l/J 

In the preceding examples, A, C, F, and J are file identifiers; B, E, 

and I are volume identifiers; and D, H, and G are file directory 

identi f iers. 

Note that two file names such as A/B and A/B/C cannot both be used, since 

A/B would then denote both a file and a file directory. 

Stondardform Representation of File Naroei 

Standardform is a shorthand, convenient form for representing and 
storing a string of file names. The general form of a string of Stan- 
dardform file names follows. 























^ 












ec 






















./) 










tc ■zy- 






a: 




£ a: 




Lj_ — 
O CO 

al CO 


a: u. 
1— u. 
a: a: 

< UJ 

(_> u- 










QC a: 
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l--k 
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□: f— 
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U- 




1 

o u. 




DO 

UJ Z ^^ 




UJ 




^ 








a: \- 


JZ^ 


UJ 




r 


u.-^ a: 


OL y- if> 


a: 
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a 




5 S 


5 
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— CO 
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— CO l/l 

1— °: 
z z UJ 

d^ o 


Q 
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< 
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O 


O 

z 
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o 1- 
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=1 
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o 
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i 



PRINTED IN U.S. AMERICA 



5000722 



B 6700 / B 7700 SYSTEM SOFTWARE HANDBOOK 



FILE IDENTIFICATION AND STRUCTURE 



The Standardform representation of the file name 5YMB0L/MCP is, for 
example, stored in 8-bit characters as follows. 



47 40 39 32 31 24 2316 15 



8 7 47 40 39 32 



^- 



-? 



47 40 39 32 31 24 2316 15 



oIe 


oil 

1 


0|2 


0j6 


S 


Y 











p-H 


M 


B 





L 


1 



Format of UntaboUd Tapos 
SINGLE FILE REEL 



MULTIFILE REEL 



FIRST- FILE DATA 



LAST-FILE DATA 



Note: Symbol * denotes a tape mark. A double tape mark consists of 
two tape marks separated by an interrecord gap. 

Format of Labolod Tapos 

SINGLE FILE, SINGLE REEL 



I REEL 



V 




H 




H 














\ 


L 

1 


IRG 


R 

1 


IRG 


R 

2 


IRG 


* 


mo 


DATA 


IRG 


DATA 


IRG / 
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FILE IDENTIFICATION AND STRUCTURE 



MULTIREEL FILE 



I REEL 



r 






E 






( 


« 


mo 



V 

1 


IRG 


*« 



FIRST -VOLUME DATA 



V 






E 








L 


Un- 


IRG 


V 

1 


IRG 


*• 





V 


H 




H 










L 


IRG- 


mG 


° IRG 
R 


« 


IRG 




1 


1 




2 


1 



LAST-VOLUME DATA IRG 



REEL-n 



MULTIFILE REEL 



1H 
l 
2 



mG FIRST- FILE DATA 



i REEL 



H 

° IRO 

1 



LAST-FILE DATA 
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FILE IDENTIFICATION AND STRUCTURE 



MULTIFILE, MULTIREEL 



REEL -I , 



FIRST- FILE DATA 



FIRST PART OF 
SECOND-FILE 
DATA 



V 





H 




H 
D 
R 

2 








PART OF 




n 


L 

1 


IHU 


R 

1 


IRG 


IRG 




IRG 


SECOND- FILE 
DATA 


IRG 


■ 



VI 




E 








mo 


V 


IRG 


** 


U 




1 







REMAINDER OF 
SECOND- FILE 
DATA 



REEL-3) 



THIRD-FILE DATA 



Symbol '^ denotes a tape mark. 

User's header labels may appear immediately after HDR2, and 

user's trailer labels may appear after either E0F2 or EOVI. 
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VOLUME HEADER 



VOLUME 

SERIAL 

NUMBER 



FILE SET ID 
(MULTIPLE FILE ID) 



OWNER 

(NOT IMPLEMENTED) 



USYN 



UMFID 

■■O" IF NONE USYS! 

■■XO" FOB 17 FOR SCRATCH jAPE TYPE 

"BACKUP" FOR BACKUP - SCRATCH 

ACCESSIBILITY ' ' ^^^ 

(NOT IMPLEMENTED) 



FIRST FILE HEADER 



28 



48 



FILE IDENTIFIER 



(FIRST 6 CHAR 
OF FILE SET ID) 



PlLt: SEiTlON 
NUMBER 
(REL REEL 
NUMBER) 



FILE SEQ 
NUMBER 
(WITHIN SET) 



CREATION 

DATE 

(bYYDDD) 



UHLN 



USQNCNMBR UGNRTN UVRSN 



T 

UCDT 



EXPIRATION 

DATE 

(bYYDDD) 

1 

UEDT 



ACCESSIBILITY 

(NOT IMPLEMENTED) 



m 


O 


-i 


3 


2 


1 


> 








O 


z 
> 


z 


z 


> 


o 


z 


Q 


a 
















JO 




c 




n 





SECOND FILE HEADER 



1 


5 


5 


11 16 1718192021 


26 


31 36 37 3940 


51 


53 60 






"" 


BLOCK LENGTH 


RECORD LENGTH 




MINIMUM 


OFFSET 


SIZE 










H F jr 




■■HDB2" 




IN EXT. FORM 
UNITS (MAX) 


IN EXT. FORM 
UNITS (MAX) 




RECORD 
LENGTH 


TO SIZE 
HELD 


OF SIZE 
FIELD 










(SPACES)) 




t t 

UBL URL 


f t 1 
UMHL IBZOFF USZ2 




UB UNITS -BLOC KING | 






UPRTCTD - PROTECTED 




1™ITS UOFS-OFFSET TO DATA 


URF - RECORD FORMAT 


UFORM - EXTERNAL FORM 


UTAPENO-TAPE # ^ IF PROTECTED) 


F- FIXED LENGTH 


0-UNSPECIFIED (WORDS) 




D-VARUBLE LENGTH IN 


3-BCL 


USYSm-SYSTEM # 


DECIMAL IN FIRST 4 CHRS. 


4-EBCDIC 




V-VARIABLE LENGTH IN 


USZUNITS-SIZE UNITS 


BINARY IN FIRST 2 CHRS. 
U-UNDEFINED 


UPRTY- PARITY 

0-ALPHA{EVEN) 


I -VARIABLE LENGTH IN REC 


1 -BINARY (C»D) 


AT FDCED LOCATION USNTNL-SENTINEL 


L- LINKS 




UDNSTY-DENSITY 


0-eOO 2-200 










1 


-556 3-1600 

















m 

Z 



FIRST END-OF-FILE LABEL 

Same as first file header, except for first four characters: "EOFI". 

SECOND END-OF-FILE LABEL 

Same as second fiie header, except for first four characters: "E0F2". 
o 
o END-OF-VOLUME LABEL 

S Same as first end-of-fiie label, except for first four characters : "EOVl". 
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USERS' HEADER LABEL 

1 1) 5 



'UHL" 



(l<n<9) 



USERS' PORTION 



J 



USERS' TRAILER LABEL 

Same as users' header label, except for first three characters: "UTL" 



B 3500 USASI Top* Label 



VOLUME HEADER 



5 


1 






VOLUME 






"UOLI" 


SERIAL 
NUMBER 


SPACES 





FIRST FILE HEADER 



28 29 



FILE 
IDENTIFIER 



SET IDENTIFIER 

{MULTIPLE FILE 

ID) 



'0" lEEL NUMBER] FILE SEQUENCE 
FILE SECTION NUMBER 

NUMBER ("0001") 



_5il55 



'GENERAT I ON 

NUMBER 

(OPTIONAL) 



GENERATION 
VERSION 
(OPTIONAL) 



CREATION I EXP I RAT I ON 

DATE DATE 

ClVYDDO") ("BYYODD") 



BLOCK COUNT RECORD CODE 
000000") (OPTIONAL) 



ACCESSIBILITY 
(BLANK) 



"BURbM" 
(OPTIONAL) 
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B 5500 Tap* Lab*l 



Field 
Descr ipt ion 

Must contain "bLABELt)t>". 
Must be 0. 
Multif i le id. 
Must be 0. 
Fi le id. 

Reel -number (within file). 
Date-written (creation date). 
Cycle-number (to distinguish between 
identical runs on the same day). 
Purge-date (date this file can be 
destroyed) . 

Sentinel (1 = end-of-reei, = end- 
of-file). 
Block-count. 
Record count . 

Memory-dump-key (I = memory dump 
fol lows I abel ) . 
7-8 6-8/1-2 5^-58 Physical tape number. 

The remainder of the information contained in the label record varies 
for ALGOL and COBOL files as follows: 





Character 


Character 


Word 


(Word) 


(Record) 


1 


1-8 


1-8 


2 


1 


9 


2 


2-8 


10-16 


3 


1 


17 


3 


2-8 


18-211 


1) 


1-3 


25-27 


1. 


lt-8 


28-32 


5 


1-2 


33-3'i 


5 


3-7 


35-39 


5 


8 


I4O 


6 


1-5 


k]-kS 


6-7 


6-8/I-I4 


1)6-52 


7 


5 


53 







ALGOL 


FILES 




Character 


Character 


Field 


Word 


(Word) 


(Record) 


Description 


8 


3 


59 


Blocking indicator (3 = blocked, 
= not blocked) . 


8 


4-8 


eo-eii 


Buffer size (number of words). 


9 


1-5 


65-69 


Maximum record size (number of 
words). 


9 


6-8 


70-72 


Zeros. 






COBOL 


FILES 




Character 


Character 


Field 


Word 


(Word) 


(Record) 


Description 


8 


3-8 


59-61. 


Reserved for f 1 le-control -rout i n 
-- not currently being used. 


^-^ 


I-? 


65-?? 


Users' portion (may be of any fo 



mat desired by user and may be up 
to 8,120 characters in length for 
tape files, up to 16 characters in 
length for card files, and up to 
56 characters in length for printer 
fi les. 
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B 6700/B 7700 library Tapes 

Library Tape Format : 



Basically, a B 6700/B 7700 library tape is a USAS I multifile volume 
that contains n+I files: a tape directory and n files that have been 
copied to tape from disk. If the tape name is MSA, the files are 
named MSA/FILEOOO, MSA/FILEOOl, etc.; MSA/FILEOOO is the name of the 
tape di rectory. 



The general layout of a library tape is as follows: 



IF A SINGLE-BEEL DUMP 



IF A MULTIPLE-REEL DUMP 



The first record of a dumped file is the disk header 
followed by the standard form of the file title. 
This is followed by the actual file data in 901-word 
records. The last of these records may contain fewer 
than 901 words; there is no padding of short records. 
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Library Tape Directory: 

The directory consists of one or more records, each 901 words long. 
The first word in all directory records is a transaction number, that 
is, the number of the data record written out. (This word is not 
included on label records but the transaction count is increased for 
them.) There then follows in each directory record one word of link 
information followed by up to 899 words of file names in Standardform. 
(Refer to Standardform.) AH records are completely packed; a file 
name may be split across directory records. The link word is used 
only for multiple-reel library dumps and is described in the next 
paragraph. The end of the directory is flagged by a name character 
count field of 0. 

Multiple-Reel Dumps and Link Words : 

in order to facilitate reloading of specified files, each new reel of ■ 
multiple-reel dump contains a partial copy of the tape directory; this 
copy contains the names of those files not dumped on the preceding 
reels. Thus, to load a file dumped to reel 3, for example, the direc- 
tory of only the third reel need be examined to find the desired file. 

The link word consists of the following three fields. 



CHARCNT 


hT. 


16 


SKIP 


25: 


10 


MORE INFO 


12; 


:n 



CHARCNT and SKIP are needed because the directories of the succeeding 
reels are simply copied from the pertinent records of the master direc" 
tory on the first reel. Thus, the first directory record on any but the 
first reel will generally begin with some names that do not pertain to 
the reel. CHARCNT tells how many characters must be jumped over to get 
to the first complete file name. SKIP tells how many complete file 
names must be skipped over in order to get to the name of the first com- 
plete file dumped on a reel. 

MOREINFO contains the relative number of the file the name of which 
immediately precedes the first complete Standardform name in a directory 
record. This field is used in determining which directory records must 
be rewritten at reel-switching time. 

The file names are described as follows (standardform): 

CHAR. I - Total number of characters in the whole 

stri ng (sel f- Indus ive) 
CHAR. 2 - Number of identifiers 

CHAR. 3 - Number of names in first identifier 

CHAR. 4... - File's names, each preceded by one character 
giving the length of that name (not self- 
inclusive) 
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For example: "SYMBOL/MCP" 

becomes: ^iS "0E010206" 8 "SYMBOL" 48 "03" 8 "HCP" 
where "A8" means to construct the following string 
from 4-bit input but treat the results as 8-bit. 



Example of a Multiple-Reel Dump : 
Suppose that 

a. N files were dumped. 

b. Two reels were used. 

c. The file K-1 was being ' 

d. Two directory records w 



itten at the time of reel change, 
e written on the first reel. 



e. The name of file K is the third complete name In the second 

directory, and there are six characters (the end of a previous 
Standardform name) before the first complete name. 

The formats of the two reels are as follows. 

Reel 1 : 

f i rst di rectory record 



second directory record 



T 





° 


NAME OF FILE 1 THRU FIRST PART OF 
NAME OF FILE K-3 



T 





K-3 


LAST PART OF NAME OF FILE K-3, 
NAME OF FILE K-2, NAME OF FILE 
K-l, NAME OF FILE K THRU NAME 
OF FILE N 


y 


♦ 


^ 


<, 



CHARCNT SKIP HOREINFO 



file K-l (first part) 



Reel 2; 

file K-l (last part) 

second directory record 



6 


2 K-3 


LAST PART OF NAME OF FILE K-3. 
NAME OF FILE K-2, NAME OF FILE 
K-l, NAME OF FILE K THRU NAME 
OF FILE N 
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Note that on any but the first reel, the directory is not the first item 
on the reel. Reel switching occurs in the middle of a file, and the 
remainder of a file that is split between two reels is written out 
before the directory is put on the new reel. The split file is logically 
considered to be on the reel on which it was begun. 

The directory on each reel of a multiple-reel library tape named MSA is 
called MSA/FILEOOO. The numbers of files following the directory are 
FILEOOI, etc. In the headers of these files are reel-1 designations. 
Only files actually split over two reels have reel-2 designations in 
their headers. 

Format of a Disk File Heodftr 

A disk file header consists of 15 header words immediately followed by 
row address words constructed according to standard mass-address word 
format. There are as many row address words as there are rows in the 
file as specified by the header field NUMROWSF (maximum = 1023). The 
file security information words, if any, follow the row addresses. 

For directory files, the 15 header words, row addresses, and security 
words are immediately followed by the first record of the directory file. 
The format of a disk file header is as follows: 



ll7:l 


DKIADORULOF 


1|6:1 




1.5:1 


DKNOTREADYF 


m<:<, 




38:8 


ROUCLASSF 


30:1 


PACKS ITF 


29:8 


EUNOF 


21:22 


DISKADDRF 



Contains core address or disk address. 
Disk address is defined as follows: 

Wri te 1 ockout bi t 

Undefined 

Not- ready bi t 

Undefined 

Row class (AREACLASS) value 

Address is from pack lieader 

EU unit number (0 to 255) 

Address field (0 to 4, 1911,303) 



47:1 
46:11 



35:4 
31:8 



UPDATES ITF 
OPENCOUNTF 



DISKSPEEDF 
FiLEKINOF 



Header information 

True (1) if file updated 

Number of processes looking at the 

header (0 to 2047) 

Disk file speed (0 to 15) 

Value of file FILEKIND attribute (0 to 255) 
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FIELD 


FIELD NAME 


23:16 


HEADERSIZEF 


7:8 


SECINFOSIZEF 


WORD 2 




Il7:l 


lADBIT 


1(6:1 


PROTECTIONF 


45:1 


PERMANENCYF 


'•'1:1 


TEHPORARYF 


43:1 


CRUNCHEDF 


42:3 


PHYSICALMODEF 


39:1 


RCDUNTS 


38:4 


RCRDTYPE 



34:3 


SIZEHODE 


31:16 


SIZEOFF 


15:16 


SIZESZ 



Size of this header in words (0 to 1038) 
Size of trailing header security informa- 
tion in words (0 to 255) 

File Organization Information 

True (1) if an Installation-Allocated 

Disk file 

True (1) if file is protected 

False (0) if file is temporary 

Temporary. (Turned on when a file is opened, 

and left on until the file is locked.) 

True (1) if file is crunched 

EXTMODE at file creation 

Fi le Record Units 

= words 

1 = characters 
File Record Type 

- fixed length 

1 = variable length {length in decimal 

in first ^ characters of record) 

2 = variable length (length in binary in 

first 2 characters of record) 

3 = undefined, size provided explicitly 

4 = variable length (length in record 

at fixed location) 

5 = I inked 

6 = FORTRAN 

7 = dependent specification fixed up at 

OPEN 
File Size Mode 
File Size Offset 
File Size Size 



WORD 3 



47:16 


BLOCKS IZEF 


31:16 


MINRECSIZEF 


15:16 


MAXRECSIZEF 


WORD 4 




WORD 5 




47:4 


HEADERVERSIONF 


43:1 


PRIVUSERF 


42:1 


PA5SW0RDPRESENTF 



File Specifications - FIB TANKDATA2 

File Blocksize 

File Minimum Record Size 

File Maximum Record Size 

Contains the End of File Count 

Row and Security Information 

Header format identification 

0000 = old version header 

0001 = new (11.2) version header 
True (1) for privileged user header 

True (1) if there exists a password for this 
header 
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FIELD 



>i]:2 5ECURITYC0DEF Class of security on this file 

= CLASSA 

1 = CLASSB 

2 = CLASSC 

3 = PRIVATE 

39:2 READWRITEF Read/Write security field 

37:1^ NUHROWSF Number of rows for which row address 

words are assigned (0 to I6383) 
23:2^ ROWSIZEF Size of each file row in segments (0 to 

16,777,215) 

WORD 6 Nane tiual 1 f ication Information 

A7:10 SAVEFACTORF File save time 

37:18 CREATEDDATEF File creation date 

19:15 GENERATIONNOF USASCI generation number 

ki] DUPLICATEBIT True (1) for duplicated header 

3:4 COPYNUHBERF File copy number 

WORD 7 Access Information 

47:1 OISKPACKF True (l) for disk pack file 

46:1 NAMEDPACKF True (I) for a named pack 

42:1 CONTENOORSF Number of contenders 

31:3 MODEF Disk file mode 

17:18 LASTACCESSDATEF Date file was last used 

WORD 8 Is used for various purposes depending on 

the file kind. For directories, it contains 
the scramble modulus. For code files, it 
contains the stack number for the Dl stack 
when a copy of the program is being executed. 
For pseudo reader deck files, it contains 
the deck number. 

WORD 9 Is used for various purposes depending on 

the file kind. For directories, it is the 
next available record number. For BDFILES, 
it is the stack number of BD8ASE stack. 

WORD 10 Is used for various purposes depending on 

the file kind. For directories, it contains 
a count of empty scramble links. For variable 
length files, it contains the number of units 
in the last block of the file. 

WORD 11 Is FIRSTDATA for control deck files. 

WORD 12 Contains the core index of the file header. 
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FIELD 


FIELD NAME 


WORD 13 




i.7;l 


INTERCHANGEF 


l<6:\ 


SINGLEF 


l45:l 


SYSRESF 


43:20 


SERNUMF 


23:8 


BASEUNITF 


15:8 


LASTF 


7:8 


PACKSF 



47:20 



27:28 DSKEOFV 



Disk Pack Information 

Pack interchange flag 

True (I) for a single pack file 

System resource bit 

Pack serial number 

Location of base pack 

Last uni t of f I te 

Number of packs 

End of Fi le Word 

Number of bits of valid data in the 

segment referenced in DSKEOFV (0 to 

I,Olt8,575) 

Relative segment number containing EOF 

(0 to 3,026,531,8^0) 



Structur* of Disk Directory 

The disk directory is a collection of files organized as a tree-like 
structure. Each of these files is referred to as a directory; the 
directory at the origin of the tree structure is referred to as the 
master d i rectory . 

A directory is composed of a header (refer to Format of Disk File 
Header) and a directory body. The directory body is made up of records 
that are 90 words (3 segments) long. Each of these records contains the 
following information in the following order. 

a. Four words (0 through 3) that contain the following information: 
WORD - A pointer to the successor record 

WORD 1 - A pointer to the predecessor record 

WORD 2 - An index to the first available name block 

WORD 3 " The record number of this record. 

b. At most, 17 name block entries of five words (0 through ^t) 
each. A description of a name block entry follows: 
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WORD - Direct entry information 

^(7:5 " Storage medium where file is supposed to be when 

it is in use 
36:8 - File type for the file {program, directory,...) 
28:10 - Size (in words) of the header for this file 
1:2 - Directory end marker: 
3=end of record 
l=end of file 
WORD 1 - Address of file header (standard mass storage 

address format) 
^7:3 - Vol ume type 
4(4:25 - Volume or EU unit 
19:20 - Disk address 
WORD 2 - An identifier that is part of a file name 

47:8 - Length of identifier, in characters 
39:40 - First five EBCDIC characters of the identifier 

(left justified with trailing O's if necessary) 
WORDS 3 and 

4 - Remainder of the identifier (up to 17 characters) 

One word used as either an end-of-record or an end-of-file 
marker. (See description of field 1:2 of word of a name 
block entry , ) 



Backup Files 

System BACKUP files are variab le- length record, fi xed- length-block 
files. Each block is 300 words long. Within a block, each logical 
record is composed of one control word followed by or more words of 
data. A terminal control word of all zeros indicates that there are 
no more records in the present block. 
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Each control word is divided into specific fields. These fields are 
as fol lows : 



19:3 



Identical with the corresponding 
portion of an I/O CONTROL WORD. 

Character count residue for the 
data record (if the record to be 
printed consists of complete words, 
the value of this field will be zero}. 



l6:17 Word count for the following data 

in the record in full words, not 
counting the control word. 

Records in a BACKUP file are not split across blocks. Thus, if the 
last record in a given block ended in word 297 and the next record were 
10 words long, then word 298 would be a control word containing all 
zeros. This control word indicates an end of the present block and the 
next record will begin at the start of the next block. The figure 
below illustrates a typical block of BACKUP records. 



- 20 WORDS OF DATA ■ 



CONTROL WORD 



CONTROL WORD 



OF DATA— 3 6 — 6-1/2 WORDS OF DATA - 



CONTROL WORD 



CONTROL WORD 



-N WORDS OF DATA 



» 



IGNORED DATA - 



CONTROL WORD 



END OF 
BLOCK 



Format of System Backup Files 
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Attributes are maintained in the FIB (File Information BIoci<) and LEB 
(Label Equation Block), and used by the HCP when dealing with that file. 

Buffer or DIRECT I/O attributes are related to a given I/O area rather 
than to the file itself. For this reason, when setting or reading these 
attributes, reference should be made to the buffer. Buffer attributes 
should only be used with a file on which DIRECT 1/0 is being performed. 

Datacom attributes are related to files with KIND = REMOTE. Their values 
reflect the NETWORK DEFINITION LANGUAGE description of the file or are 
collected while the file is open in the station list of the remote file. 

The following table lists the file attributes and some associated infor- 
mation. The column headed "NUM" gives the number that the MCP uses when 
accessing or setting an attribute. This is also the number which will 
be displayed when an attribute error occurs (except for DIRECT I/O 
attributes). The column headed "NAME" is the symbolic name that the 
compilers recoginize for this attribute. "R/U" column describes the 
ability of the attribute to be accessed (read) or set (written). RW 
means read and write capability; RO means the capability to read only 
and WO means the capability to write only. "TYPE" column gives the 
data type required when using this attribute. P stands for pointer 
attribute, I for integer, and B for Boolean. 

The "R" column gives the conditions under which the attribute may be 

read (i.e., accessed), and the "W" column gives the conditions under 

which attribute may be ■- = '-'■ — ' ■ - - -^ ■^- -■ ■ ■ • 
used for these columns; 



itten (i.e., set). The following codes are 



C - FILE MUST BE CLOSED 

- FILE MUST BE OPEN 

A - PHYSICAL FILE MUST BE ASSIGNED TO LOGICAL FILE 

V - VARIABLE - MAY BE ACCESSED OR SET ANY TIME 



A dash (-) 
DIO - DIRE 



in 


any 


column indicates that 


this CO 


umn i s 


not appi icable. 


CT I/O. 












NUM 




NAME 


R/W 


TYPE 


R 


w 
















000 




TITLE 


RW 


P 


V 


- 


001 




REEL 


RU 


1 


V 


« 


001 




lOMASK (DIO) 


RW 


1 


V 


V 


002 




DATE 


RU 


1 


V 


c 


002 




lOCW (DIO) 


RW 


"R 


V 


V 


003 




CYCLE 


RO 


1 


V 


c 


003 




lOCANCEL (DIO) 


RO 


6 


V 


- 


OM 




VERSION 


RW 


1 


V 


c 


OC) 




lOERRORTVPE (010) 


RO 


1 


V 




005 




5AVEFACT0R 


RU 


1 


V 


V 


005 




lORESULT (010) 


RO 


B 


V 




006 




DENSITY 


RW 


1 


V 


c 


006 




lOEOF (DIO) 


RO 


B 


V 


- 


007 




PARITY 


RW 


1 


V 


V 


007 




lOPEKDING (DIO) 


RO 


B 


V 


- 


008 




KINO 


RW 


1 


V 


c 


IN 


US 


AMERICA 
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008 


lOCOHPLETE (DIO) 


RO 


B 


V - 


009 


LABELTYPE 


RU 




V c 


009 


lOTIHE (DIO) 


RO 




V - 


010 


EXTHODE 


RW 




V c 


010 


lORECORDNUH (DIO) 


RO 




V - 


on 


OPTIONAL 


RW 




V c 


oil 


lOWORDS (DIO) 


RO 




V - 


012 


PROTECTION 


RW 




V c 


012 


lOCHARACTERS (DlO) 


RO 




V - 


013 


FILETYPE 


RW 




V c 


013 


lOADDRESS (010) 


RO 




V - 


014 


BLOCKS IZE 


RW 




V c 


015 


MAXRECSIZE 


RW 




V c 


016 


MINRECSIZE 


RW 




V c 


017 


AREAS IZE 


RW 




V c 


018 


AREAS 


RW 




u c 


020 


HYUSE 


RW 




V c 


021 


OTHERUSE 


RW 




V V 


022 


FLEXIBLE 


RW 




V c 


021) 


SPEED 


RW 




V V 


026 


BUFFERS 


RW 




V c 


027 


DIRECTION 


RW 




V c 


028 


CURRENTBLOCK 


RO 




V u 


029 


INTHOOE 


RW 




V c 


030 


OPEN 


RW 




V V 


031 


PRESENT 


RO 




V - 


032 


SIZEMODE 


RW 




V c 


033 


S12E0FFSET 


RW 




V c 


03'. 


SIZE2 


RW 




V c 


035 


STATE 


RO 




A - 


036 


EOF 


RO 


B 


A - 


039 


PACKNAME 


RO 


P 


V - 


OlfO 


SINGLEPACK 


RW 


B 


V c 


Olil 


CVLINDE RHODE 


RU 


B 


V c 


01.2 


RESIDENT 


RO 


B 


V - 


O'i'i 


BLOCK 


RO 


1 


V - 


OliS 


CARRIAGECONTROL 


RW 


1 


V c 


0116 


RECORD 


RO 


1 


V - 


049 


LASTRECORO 


RO 


1 


A - 


050 


PAGES IZE 


RW 


1 


V V 


051 


PAGE 


RW 


1 


A V 


052 


LINENUH 


RW 


1 


A V 


05") 


FORNMESSAGE 


WO 


P 


- « 


057 


UPDATED 


RO 


B 


A - 


058 


FILEKIND 


RO 


1 


A - 


060 


ROWINUSE 


RO 


1 


A - 


061 


USEDATE 


RO 


1 


V - 


062 


SERIALNO 


RO 


1 


V - 


06lt 


ROWADDRESS 


RO 


1 


A - 
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R/W 



066 


INTERCHANGE 


RU 


B 


V C 


067 


DUPLICATED 


RW 


B 


V C 


069 


COPIES 


RW 




V C 


072 


INTNAHE 


RW 






073 


UNITS 


RW 




U C 


07'" 


ATTERR 


RO 




V - 


075 


ATTYPE 


RO 




V - 


076 


ATTVALUE 


RO 




w - 


078 


UNITNO 


RO 




c 


079 


SECURITYGUARD 


RW 




« V 


080 


SECURITYTYPE 


RW 




V 


081 


SECURITYUSE 


RW 




V 


082 


AREACLASS 


RW 




V 


083 


READCHECK 


RW 




V V 


081i 


RECORDINERROR 


RO 




V - 


085 


ERRORTYPE 


RO 




- 


086 


RECORDKEV 


RO 




V - 


087 


lOINERROR 


RO 




V - 


088 


TAPEREELRECORD 


RO 




A - 


099 


FAMILYSIZE 


RO 




- 


100 


POPULATION 


RO 




- 


101 


FAMILY 


WO 


P 


- 


102 


ENABLE INPUT 


RO 


B 


- 


105 


TIMELIMIT 


RW 


*R 


« V 


106 


LASTSTATION 


RW 







107 


RECEPTIONS 


RO 




- 


108 


CENSUS 


RO 




- 


111 


DISPOSITION 


RO 




- 


112 


TRANSMISSIONS 


RO 




- 


113 


ASSIGNTIHE 


RO 




- 


116 


SCREEN 


RO 




- 


117 


TRANSMISSIONO 


RO 




- 


118 


WIDTH 


RO 




- 


A Positive Real No. 








COMMENT: 











have special meaning as datacom station attributes. 

FILE ATTRIBUTES - ALPHABETICAL 

The column headed "KIND" gives a code for kind of file attribute: 

General Fi le Attribute (G) ; Direct I/O (DIO); Datacom Attributes (D) . 



NAME 



NUM 



R/W TYPE R W KIND 



AREACLASS 


082 


RW 


1 




AREAS 


018 


RW 


1 


V C 


AREAS IZE 


017 


RW 


1 


V c 


ASSIGNTIME 


113 


RO 


1 


- 


ATTERR 


07l< 


RO 


B 


V - 
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NAME 
ATTVALUE 


NUM 
07?" 


R/W 
RO 


TYPE 


R W 
U - 


KIND 
G 


ATTYPE 


075 


RO 




V - 


G 


BLOCK 


Dili. 


RO 




V - 


G 


BLOCKS IZE 


Oil) 


RW 




V C 


G 


BUFFERS 


026 


RW 




V c 


G 


CARRIAGECONTROL 


045 


RW 




« C 


G 


CENSUS 


108 


RO 




- 


D 


COPIES 


069 


RW 




V C 


G 


CURRENTBLOCK 


028 


RO 




V V 


G 


CYCLE 


003 


RO 




V c 


G 


CYLINDERHODE 


Olil 


RW 




V c 


G 


DATE 


002 


RW 




V c 


G 


DENSITY 


006 


RW 




V c 


G 


DIRECTION 


027 


RW 




V c 


G 


DISPOSITION 


1 II 


RO 




- 


D 


DUPLICATED 


067 


RW 


B 


V c 


G 


ENABLE INPUT 


102 


RO 


B 


- 


D 


EOF 


036 


RO 


B 


A - 


G 


ERRORTYPE 


085 


RO 


1 


- 


G 


EXTHODE 


010 


RW 


1 


« c 


G 


FAMILY 


101 


WO 


P 


- 


D 


FAMILYSI2E 


099 


RO 


1 


- 





FILEKIND 


058 


RO 


1 


A - 


G 


FILETYPE 


013 


RW 


1 


V c 


G 


FLEXIBLE 


022 


RW 


B 


V c 


G 


FORHMESSAGE 


05"! 


WO 


P 


- V 


G 


INTERCHANGE 


066 


RW 


B 


V c 


G 


INTHODE 


029 


RW 


1 


V c 


G 


1 NTNAME 


072 


RW 


P 




G 


I0ADDRES5 


013 


RO 


1 


V - 


DIO 


lOCANCEL 


003 


RO 


B 


V - 


DID 


lOCHARACTERS 


012 


RO 


1 


V - 


DIO 


lOCOMPLETE 


OOS 


RO 


B 


V - 


DIO 


lOCW 


002 


RW 


1 


V V 


DIO 


lOEOF 


006 


RO 


e 


V - 


DIO 


lOERRORTYPE 


OOll 


RO 


1 


V - 


DIO 


lOINERROR 


087 


RO 


B 


V - 


G 


lOMASK 


001 


RW 


1 


V V 


DIO 


lOPENDING 


007 


RO 


B 


V - 


DIO 


lORECORDNUM 


010 


RO 




V - 


DIO 


lORESULT 


005 


RO 


1 


V - 


DIO 


lOTIME 


009 


RO 


1 


V - 


DIO 


1 DWORDS 


on 


RO 


1 


V - 


DIO 


KIND 


008 


RW 


1 


V c 


G 


LABELTYPE 


009 


RW 


1 


V c 


G 


LASTRECORD 


dg 


RO 


1 


A - 


G 


LASTSTATION 


106 


RW 


1 





D 


LINENUM 


052 


RW 


1 


A V 


G 


MAXRECSI2E 


015 


RW 


1 


V c 


G 


MINRECSIZE 


016 


RW 


1 


» c 


G 


HYUSE 


020 


RW 


1 


V c 


G 
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NAME 


NUH 


R/W TYPE R W 


KIN 


OPEN 


030 


RW e 


V V 


G 


OPTIONAL 


on 


RW E 


V C 


G 


PACKNAME 


039 


RO F 


V - 


G 


PAGE 


051 


RW 


A V 


G 


PAGESIZE 


050 


RW 


V V 


G 


PAGES I2E 


050 


RO 


- 


D 


PARITY 


007 


RW 


V V 


G 


POPULATION 


100 


RO 


- 


G/D 


PRESENT 


031 


RO 


U - 


G 


PROTECTION 


012 


RW 


V C 


G 


READCHECK 


083 


RW 


V V 


G 


RECEPTIONS 


107 


RO 


- 


D 


RECORD 


0l|6 


RO 


V - 


G 


RECOROINERROR 


OS* 


RO 


V - 


G 


RECORDKEV 


086 


RO 


V - 


G 


REEL 


001 


RW 


V V 


G 


RESIDENT 


01)1 


RO 


V - 


G 


ROWADDRESS 


Oih 


RO 


A - 


G 


ROKINUSE 


060 


RO 


A - 


G 


SAl/EFACTOR 


005 


RW 


V V 


G 


SCREEN 


116 


RO 


i - 


D 


SECURITVTYPE 


080 


RW 


V 


G 


5ECURITYUSE 


081 


RW 


V 


G 


SERIALNO 


062 


RO 


V - 


G 


SINGLEPACK 


MO 


RW 


S V c 


G 


SIZE2 


03'i 


RW 


V c 


G 


SIZEHODE 


032 


RW 


V c 


G 


SIZEOFFSET 


033 


RW 


V c 


G 


SPEED 


02'l 


RW 


V V 


G 


STATE 


035 


RO 


A - 


G 


TAPEREELRECORD 


088 


RO 


A - 


G 


TIMELIMIT 


105 


RW 


'R V V 


D 


TITLE 


000 


RW 


P V - 


G 


TITLE 


000 


RO 


P - 


D 


TRANSHISSIONO 


117 


RO 


- 


D 


TRANSMISSIONS 


112 


RO 


1 - 


D 


UN 1 TNG 


078 


RO 


1 c 


G 


UNITS 


073 


RW 


1 V C 


G 


UNITSLEFT 


055 


RO 


1 V - 


G 


UPDATED 


057 


RO 


B A - 


G 


USEDATE 


061 


RO 


1 V - 


C 


VERSION 


OOll 


RW 


1 V C 


G 


WIDTH 


118 


RO 


1 - 


D 



Positive Real no. 
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General FiU AttribuUs 

A list of the file attributes (in alphabetical order), including Buffer 
and Oatacom, with a brief explanation follows. See appropriate cornpi ler 
documents for correct syntax for referencing attributes. 

Buffer attributes should be used with DIRECT 1/0 files. 

Remote files (i.e., files with KIND = REMOTE) are used in DATACOM 1/0. 
Remote files are opened initially to include all the stations subsumed 
in the NETWORK DEFINITION LANGUAGE (NDL) file section description of that 
file. Therefore, a remote file may comprise a collection of stations 
of many different terminal types. One of the problems related to multi- 
station remote files is distinguishing between the member stations. 
This is accomplished by assigning a "relative station number" (RSN) to 
each station which is a member of the file. The RSN is in effect an 
index into the station list of the remote file, which is created when 
the file is opened. The RSN is not unique to the station, it is in 
fact reusable, and after extensive use of the family attribute, an RSN 
may or may not point to a valid {that is to say non-empty) entry in the 
station list. 

There are both file and station DATACOM attributes. The FILE ATTRIBUTES 
deal with characteristics of the remote file as a whole and the STATION 
ATTRIBUTES deal with the characteristics of the specific stations in the 
file. 

AREACLASS (82) 

Integer. Used in disk file reconstruction. Permits user control of 
disk file row distribution among EU's. Must be set before disk address 
is assigned to row. Accessible at anytime. Can have value of zero to 
255 with zero the default. Not label equatable. Parameter (row number) 
required when referencing, (See disk file data recovery document.) 

AREAS (18) 

Integer. Number of rows in a disk file. Accessible at any time. Set 
only when file is closed. Value = zero to 1000. Default value is 1. 
Label equatable (AREAS ' <integer>). Initialized by file declaration 
(ALGOL), File-Control paragraph, "ASSIGN TO INTEGER-1 ^ INTEGER-2 DISK" 
Clause (COBOL). FILE card (FORTRAN). 

AREA5IZE (17) 

Integer. Number of records per disk file row (AREA). Accessible at 
any time. Set only when file is closed. Label equatable (AREASIZE = 
<integer>). Initialized by file declaration (ALGOL), File-Control 
paragraph, "ASSIGN TO INTEGER-1 ^ INTEGER-2 DISK" Clause (COBOL), FILE 
card (FORTRAN). Meaningful only for output files. 
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ASSIGNTIME (113) 

Datacom station attribute. Integer. Returns tiie time at which the 
station was assigned to the file (not the length of time that the 
file has been open). Accessible at any time that the file is open. 
Read-only. Value is the number of seconds elapsed from midnight until 
the time that the station was assigned. 

ATTERR (74) 

Boolean. A read-only attribute which indicates file attribute error. 
Values " TRUE or FALSE. TRUE only if a file attribute action caused 
an error. Reset to false after a successful attribute action. May be 
tested by conditional statements (ALGOL), PROCEDURE DIVISION statements 
(COBOL). 

ATTVALUE (76) 

Integer. Returns value of last file attribute in error. Read-only 
attribute which may be tested by conditional statements (ALGOL), PRO- 
CEDURE DIVISION statements (COBOL). 

ATTYPE (75) 

Integer. Returns attribute number of the last file attribute in error. 
Read-only attribute which may be tested by conditional statements 
(ALGOL), PROCEDURE DIVISION statements (COBOL). 

BLOCK (44) 

Integer. Number of the current block. Disk file use only. Not label 
equatable. Hay be tested by conditional statements (ALGOL), PROCEDURE 
DIVISION statements (COBOL). Not specifiable (FORTRAN). 

BLOCKSIZE (14) 

Integer. Physical size of a block of records. May be read at any time. 
Nay be set only when file is closed. Specified in words (file attribute 
UNITS = 0) or INTMODE units (file attribute UNITS - I). If UNITS is not 
specified BLOCKSIZE = words. Value may range from minimum size to 
65,535 INTMODE units or words depending on UNITS. Default value - Record 
size. Disk files should be blocked in multiples of 30 words. Minimum 
block size for tape is six words. Label equatable (BLOCKSIZE = 
<integer>, UNITS = units mnemonic ). Initialized by file declaration 
(ALGOL), DATA DIVISION, FILE DESCRIPTION, BLOCK CONTAINS clause (COBOL), 
not specifiable (FORTRAN). 
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BUFFERS (26) 

Integer. Number of buffers assigned to the file. May be read at any 
time and may be set only «hen file is closed. Nay have value of one to 
63. Default = I. (COBOL default - 2, FORTRAN default - 2). Actual 
number of buffers may be less than amount requested if MCP determines 
that the space is not available. Label equatable (BUFFERS - Mnte9er>) 
Initialized by file declaration (ALGOL), FILE card (FORTRAN), File- 
control paragraph, RESERVE clause (COBOL). 

CARRIAGECONTROL (45) 



ter 
osed. 



Integer. Type of carriage control to be employed on this line prin 
tile. May be read at any time; must be set only when file is closeu. 
The value of this attribute indicates the effect the first character of 
each record is to have upon printer carriage control. 

The values and mnemonics of this attribute are as follows: 

STANDARD 

1 CTLASA 

2 CTL360 

cIol!S?.'!°J' '*" '^=fs"'t "I""- "LASA is simulated for FORTRAN by the 
FORTRAN formatter. 



Standard carriage control mal<es no attempt to interpret the first char 
acter of a pr i " ' 
language synta 



•^- -■ ^^ ••■^ =Lic.i.fji. Lu iiiLcrpreL cne rirst en 

acter ot a printer record. Carriage control is handled through the 



Nonstandard carriage control is only 
allowed for character-oriented (UNtTS=I) 
EBCDIC (INTMODE-EBCDIC) printer files. 

CTLASA indicates that the line is to be printed after carriage motion 
has been completed according to the first character of the line as 
fol lows; 

First Character Carriage 

of Record Action 



blank 




single space 
double space 
triple space 
* no carriage motion 

n, where n is a skip to channel n 

non-zero digit 

CTL360 indicates that the first character (8-bit) of the line be divided 
into the following fields, the values of which have the following effect 
upon carriage control: 
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Field 
[0:1] 
[1:11 



[2:1] 
[6:4] 



[7:1] 



Carriage Action 

If this bit is on, printing occurs after 
carriage motion, else before the motion. 
if this bit is on, no printing occurs - 
only carriage control. 
Ignored. 

The value of this field is either the 
channel number (if stripping) or the line 
count (if spacing), according to the follow- 
ing bit. 

If this bit is on, then a skip to channel n 
is to be performed, else space ahead the 
number of spaces indicated in [fi:**]. 



CENSUS (108) 

Either file or station datacom attribute. Integer. File attribute 
returns the number of messages currently in the input queue of the file. 
Station attribute returns the number of messages currently in the input 
queue of the station. Accessible whenever the file is open. Read-only. 
Meaningful only for remote files with MYUSE - I (iN) or MYUSE = 3 (I/O). 

If the MCS is participating in I/O, there may or may not be a station 
input queue assigned and only the file attribute CENSUS should be refer- 
enced. If there is no input queue for the station, the station attri- 
bute CENSUS will return zero and the search will have caused a nonfatal 
attribute error. 

COPIES (69) 

Integer. Accepts or returns a value indicating the total number of 
copies within a duplicated file. The maximum number of copies is 16. 
The default value is two if a duplicated file is created, but the COI>IES 
attribute has not been specified. 

CURRENTBLOCK (28) 

Integer. A read only integer which is accessible only when the file is 
open. The value returned is the size of the block currently in use, in 
logical units (i.e., intmode units if it is a character-oriented file, 
otherwise words) . 
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CYLINDERMODE (41) 

Boolean. Disk packs only. When true, this attribute provides for 
assignment of space by cylinders; i.e., space assigned to each area lies 
within the bounds of a single cylinder. Default value is false which 
provides space assignment without regard for cylinder bounds but rather 
on a space available basis. AREASIZE must not be greater than cylinder 
size when CYLINDERMODE is set; an attempt to introduce this condition 
will result in an "OPEN ERROR # 20" system message. 

DATE (2) 

integer. Creation date of the file. Accessible at any time. May be 
set only when file is closed. Value = YYDOD, where YY = year and DDD = 
day of the year (JULIAN). Default value = <current date> {some other 
date may be specified if desired). Label equatable (DATE = <integer>). 
Initialized by file declaration (ALGOL), LABEL clause and USE routines 
(COBOL). Not specifiable (FORTRAN). 

DENSITY (6) 

Integer, Allows the user to specify the recording density when creating 
a magnetic tape file. Accessible at any time. May be set only when file 
is closed. Values range zero thru three. {O (HIGH) = 800 BPI , I (MEDIUM) 
= 556 BPI, 2 (LOW) = 200 BPI, and 3 (SUPER) = 1 600 SP I ) . 556 BPI not 
valid for 9-track tape; I600 BPI not valid for 7-track tape. Label 
equatable (DENSITY = ^density mnemonic>). Default = Selected by setting 
of available unit. Initialized by file declaration (ALGOL), (may be 
specified either by mnemonic or value). Not specifiable In COBOL or 
FORTRAN. 

DIRECTION (27) 

Integer. Indicates the direction (forward or reverse) in which records 
on tape files are accessed or will be accessed. Accessible at any time, 
and should be set when file is closed. May have value of zero (FORWARD) 
or one (REVERSE). Default is normally zero (FORWARD). Default is one 
(REVERSE) if file is opened reverse. Label equatable (DIRECTION = 
<direction mnemonic>). Initialized by file declaration (ALGOL) (DIRECTION ■• 
<integer>). Initialized by OPEN statement (COBOL). Not specifiable 
(FORTRAN). REVERSE cannot be specified for output files. 

DISPOSITION (111) 

Datacom station attribute. Integer. Returns the disposition of the 
station in the remote file. Accessible whenever the file is open. 
Read-only . 
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Values and meanings; 

Unknown 

1 Assigned 

2 Denied 

4 Postponed 

6 Denied, illegal use attempted 

DUPLICATED (67) 

Boolean. Accepts or returns a true (one) if the file j_s_ dupl icated and 
a false (zero) if the file is not dupl icated. Tiie default value is 
false. 

ENABLEINPUT (102) 

Either station or file datacom attribute. Boolean. Station attribute 
returns TRUE if the station is both assigned and enabled for input. 
File attribute returns TRUE if at least one of the assigned stations in 
the remote file's station list is also enabled for input. Valid only 
for files with MYUSE = I, Accessible only when file is open. Read-only. 

EOF (36) 

Boolean. Indicates whether or not (TRUE or FALSE) the end of the file 
has been reached. Read-only and may be read at any time (physical file 
must be assigned to logical file). Values of TRUE or FALSE. Default 
is FALSE. Not label equatable. May be interrogated programmat ical ly . 

ERRORTYPE (85) 

Integer. Read-only and may be read at any time on DISK files only. 
Describes the type of error that most recently occurred. Its values are: 

NO ERROR 

1 SUNOTREADY 

2 READPARITYERROR 

3 READCHECKFAILURE 

Default value = (no error has occurred). Not label equatable. Can be 
interrogated only when disk file is open. Either the value or the 
mnemonic may be specified when testing this attribute. See disk file 
data recovery document for additional information concerning disk errors. 

EXTMODE (10) 

Integer. Specifies the character size, if any, required on an external 
I/O device. Accessible at any time. May be set only when file is 
closed. This value is ignored for input files; a labeled input file 
will have the external mode specified in the label. 
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External mode is compared uith the internal mode (iNTMODE) to decide^ 
whether or not translation is needed. The values of EXTHODE and thei 
associated mnemonics are as follows: 



SINGLE (word mode) 

HEX 

BCL 

EBCDIC 

ASCI I 

BINARY (card files) 



Default value - value of INTMODE (output files). Label equatable 
(EXTHODE - <extmode mnemonio). Hay be initialized in ALGOL with file 
declaration (EXTHODE = <mnemonic or value>). Hay not be initialized 
prograirmatically in COBOL or FORTRAN. Can be interrogated or changed m 
ALGOL (statements) or COBOL (PROCEDURE DIVISION statements). EXTHODE 
specifies, for input files, the character size of the physical file. 
For output files, EXTHODE specifies the character size desired on the 
physical file. If EXTHODE (external character size) and INTMODE (inter- 
nal character size) differ, translation may be supplied in certain cases. 

FAMILY (101) 

Datacom file attribute. Pointer. Tlie file attribute family may be 
used to add or subtract a station or a set of stations (the family of 
a file described in NDL) from a remote files station list. Urite-only 
and may be set only when file is open. The FAMILY attribute makes it 
possible to alter dynamically the station list associated with an open 
remote file from its current value. However, if the file (or station) 
to be added or subtracted is not described in NDL, or is/is-not already 
in the station list, then no change is made to the remote files station 
list. Attempting to add/subtract a station/file not found in NDL causes 
an attribute error. Subtracting all the stations from the remote file 
does not close the file; however, a READ or WRITE statement while the 
FAHiLYSIZE of the file is zero will cause end of file action. 

When a station is subtracted from a file, all references to that station 
are removed from the files station list, the FAHILYSIZE and all other 
related attributes are decreased, the controlling HCS is sent a "FILE 
CLOSE" message for the station, and all knowledge of that station, from 
the files point of view. Is lost. 
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ing HCS is 



When a station is added to a remote file, a new entry is made in the 
station list, tiie FAMILYSI2E is increased, and the control 1 
sent a "FILE OPEN" message for the station. 

FAMIIYSIZE (99) 

Datacom file attribute. Integer. Returns the number of stations in the 
files station list. FAHILYSIZE is equal to the number of stations spec- 
ified by the description of the file in NDL , plus the number of stations 
added by use of the FAMILY attribute, minus the number of stations 
deleted by use of the FAMILY attribute. Hay be read whenever the file 
is open. Read-only. 

FILEKIND (58) 

Integer. An attribute that describes the disk file. May be read at 
any time that a physical file is assigned to a logical file. Default = 
192 DATA. Not label equatable. May be accessed by value or mnemonic 
as follows: 



VALUE 


MNEMON 1 C 







SYSTEMDl RECTORY 


1 


VERSIONDIRECTORY 


2 


DIRECTORY 


3 


CONTROLDECK 


4 


BACKUPPRINTER 


5 


RECONSTRUCTIONFILE 


i 


SYSTEMDl RFILE 


7 


JOBDESCFILE 


8-ll( 


undefined 


15 


XDISKFILE 


16 


reserved " 




17 


BACKUPPUNCH 


backup f i les 


18-19 


reserved 




20 


COMPILERCODEFILE 


21-28 


undefined 


29 


LIBRARYCODE (including APL Work Spaces) 


30 


INTRINSICFILE 


31 


MCPCODEFILE 


32 


ALGOLCOOE 1 




33 


COBOLCODE 




S* 


FORTRANCODE 




35 


XALGOLCODE 




36 


PL 1 CODE 




37 


JOVIALCOOE 




38 


undefined 




39 


ESPOLCODE 


executable code 


<40 


DCALGOLCODE 




^\ 


BASICCODE 




1|2 


XFORTRANCODE 




•i} 


JOBCODE 




*3-61 


undefined 
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VALUE 



HNEHOWIC 



executable code 



symbol i c f i les 



62 BOUHDCODE 

63 CODEFILE 
(A ALGOLSYHBOL 

65 COBOLSYMBOL 

66 FORTRANSYMBOL 

67 XALGOLSYHBOL 

68 PLISYMBOL 

69 JOVIALSYMBOL 

70 undefined 

71 ESPOLSYMBOL 

72 OCALGOLSYMBOL 

73 BASICSYMBOL 
71) XFORTRANSYMBOL 

75-93 undefined 

9l| BINDERSYNBOL 

95-191 undefined J 

1 92 DATA 

193 SEQDATA 

194 GUARDFILE 

195-255 undefined {user data files) 

*for future BACKUPPRINTER 
User programs are able to change compiler code files (e.g., ALGOLCODE, 

COBOLCODE, etc.) and CODEFILEs to data by setting the FILEKIND attribute. 
Only compilers are allowed to change a data file into a codefile. 

FILETYPE (13) 

Integer. Specifies the biocl^ing technique of the file and allows variable 
record size. Accessible at any time; may be set only when the file is 
closed. 



The values are as follows: 

Blocked or unbloclced fixed-length records. 

1 Record length in decimal, in the first four iNTMODE char- 
acters of the record. If INTMOOE=0 (words), then in the 
f i rst word. 

2 Record length in binary, in the first two INTMODE char- 
acters of the record. If INTMODE=0 (words), then in the 
f i rst word. 

3 Record length specified externally to the record. 

^ Record length in fixed location in the record, specified by 
the attributes SIZEOFFSET, SIZE2, and SIZEHODE. If SiZE- 
HODE equals words, then SIZE2 is assumed to be 1. 



PRINTED IN U.S. AMERICA 



J000722 



B 6700 / B 7700 SYSTEM SOFTWARE HANDBOOK 



FILE ATTRIBUTES 



5 XALGOL linked — A word between each record specifies the 
length, in INTMODE units, of the previous record (first 
half) and the length, in INTMODE units, of the next record 
(second half of the word). Except in the case of the first 
backward link and the last forward link which have values 
of zero, the record length includes the link word. 

6 FORTRAN linked -- Binary records. 

7 Record structure depends upon the FILETYPE used to create 
the assigned permanent file. 

8 Informs the I/O subsystem that all the attributes other than 
INTMODE are to be determined fay the permanent of physical 
file. 

Only files with FILETYPE=0 may be read in the reverse direction. If 
FILETYPE is not set or is set to zero and MINRECSIZE is set to a nonzero 
value less than MAXRECSIZE, then FILETYPE will be set to 3 when the file 
is opened. 

FILETYPEs 1 through 6 refer to variable-length records with variable 
blocking. If the next record to be written will cause the block to ex- 
ceed BLOCKS I ZE, a physical write is initiated and the record becomes the 
first record of the next block. If the file is assigned to a peripheral 
unit (KIND) allowing variable-size physical records (e.g., tape), only 
the actual block size used will be written. For peripheral units requir- 
ing fixed physical record sizes (e.g., disk), the block will be expanded 
appropriately and a length field of zero will be forced into this ex- 
panded area. 

FILETYPE 2, 5, and 6 are not permitted for Datacomn (REMOTE) files. 
FILETYPE k is not permitted for REMOTE files if SIZEMODE has the value 
zero. 

FILETYPE 3 must be specified if STATE is to reflect the actual size of 
the input record rather than the declared buffer size. 

When FILETYPE=7, the format of the records in the logical file is deter- 
mined by the format of the records in the physical or permanent file. 
Thus, FILETYPE, MINRECSIZE, BLOCKSIZE, SIZEMODE, SIZEOFFSET, SIZE2, 
UNITS, and INTMODE will be changed to agree with the physical file when 
the file is opened. When there is no permanent file, as in the case of 
output to the printer, FILETYPE is set to (fixed-length records) and 
the other attributes are set to default values depending upon the physi- 
cal device associated with the file. When a permanent file does not 
exist, FILETYPE=7 does not change BLOCKSIZE and HAXRECSIZE if their 
values are nonzero. As FILETYPE=7 sets INTMODE equal the file's actual 
EXTMODE, software translation is specifically avoided. 

FILETYPE=8 is similar to FILETYPE=7 when opening a permanent file except 
INTMODE is not set. Hence, if the progranmer set INTMODE different from 
the found EXTMODE or if INTMOOE was left at default that was different 
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from EXTMODE, the software translation occurs. FILETYPE-8 thus permits 
software translation while FILETYPE-7 avoids software translation. When 
creating a file, if FILETYPE-S, then the use of default values is en- 
forced for all attributes whether or not they had been previously set. 
The value of FILETYPE has an effect upon the default value of HINRECSIZE. 
FlLETYPEs which have linkwords or record length fields contained within 
the record require HINRECSIZE to be at least large enough to hold this 
information. Files of FILETYPE-0 do not use HINRECSIZE. 

The following table displays the default values for attributes when a 
permanent file does not exist and FILETYPE=7 or 8. 

Device Values 

Disk EXTHOOE-INTHODE 

MAXRECSIZE-BLOCKSIZE-30 words 

Supervisory INTMODE-EXTHODE=EBCDIC 

Console HAXRECSIZE-BLOCKSIZE-IO words 

Remote INTMODE=EXTHODE-EBCDIC 

Terminal HAXRECS1ZE=BL0CKSI ZE-12 words 

Paper Tape INTMODE-EXTH0DE=BCL 

Reader HAXRECS IZE-BLOCKS I ZE-10 words 

Paper Tape INTHODE-EXTMODE«BCL 

Punch HAXRECSIZE.BLOCKSIZE=IO words 

Line INTHODE-EXTHODE 

Printer HAXRECSI ZE=BLOCKSI ZE-17 words (BCL) 

22 words (non-BCL) 

Card Reader INTHODE=EXTHODE ( INTHODE-EBCDIC if EXTHODE-BINARY) 

or Punch HAXRECS IZE-BLOCKS I ZE=20 words (BINARY) 

10 words (BCL) 
\k words (other) 

Hagnetic EXTMODE- I NTHODE 

Tape HAXRECS IZE-BLOCKS I ZE=10 words 

FLEXIBLE (22) 

Boolean. Disk files only. This attribute, when set, permits the auto- 
matic creation of a new disk file header when no room exists in the 
present header for an additional row. All information in the old header 
is copied Into the new header, and all copies of the old header are re- 
placed by the new header. A minimuni of 10 rows will be added when ex- 
panding a header. 

FORMMESSAGi (54) 

Pointer attribute. Used to notify the operator that a special form is 
required for a line printer file. If FORMMESSAGE is set, the string 
pointed to will be displayed on the operator's console when the file Is 
opened. Printing will not commence until one of the following input 
messages Is provided by the operator: 
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<inixid> FMLP <un i t number> 

<mixid> OUDK 

<mlxid> OU MT <optionat un ! t number> 

The attribute Is applicable to write-only files. It may be set at any 
time and the string pointed to must terminate in a period. The attri- 
bute is label equatable (FORMMESSAGE = <EBCDIC string, 15 characters or 
less, terminated with a period>). It can be initialized by the file 
declaration (ALGOL). It must not be set using a string in the file 
declaration; it must be set to a pointer variable global to the declara- 
tion. The pointer variable must be initialized prior to the file declara- 
tion. 

FOiWHESSAGE can be set for files, other than printer files. The only 
valid response (other than <mixid> DS) is: 

<mixid> FM <unit mnemonic> <unit number>. 

INTERCHANGE (66) 

Boolean. Disk packs only. When true, this attribute indicates that the 
file is stored or is to be stored on a Burroughs Interchange pack. 

INTMODE (29) 

Integer. Specifies the internal character mode of the file. Accessible 
at any time. Hay be set only when file is closed. The values for this 
attribute are as follows: 

SINGLE (word mode) 

2 HEX 

3 BCL 

4 EBCDIC 

5 ASCII 

The value 6 (binary) which is allowed in EXTMODE may not be specified 
for INTMODE. Default value - value of EXTMODE (input files). Label 
equatable (INTMODE - <intraode ranemonio). May be initialized program- 
matically in ALGOL (INTMODE • <value or ranemonic>) but may not in COBOL 
or FORTRAN. Can be interrogated in ALGOL or COBOL. If INTMODE and 
EXTMODE differ, automatic translation may or may not occur. (See 
EXTMODE . ) 

INTNAME (72) 

Pointer. A pointer expression which points to the internal file name 
if the file name has been changed; also used to change the internal file 
name. Accessible at any time. May be changed only when file is closed 
and the simple identi f ier must be terminated with a period. Default value 
is the user-supplied internal file name. Not label equatable. Initial- 
ized in file declaration (ALGOL). Must not be initialized to a string; 
must be initialized to a pointer variable that has been initialized prior 
to entering the block in which the file is declared. 
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lOADDRESS (13) 

Integer. Returns the absolute memory address of the first word of the 
specified buffer. Accessible at any time. Values: zero to maximum 
memory size. Not label equatable and is initialized by HCP only. Direct 
I/O attribute. 

lOCANCEL (3) 

Boolean. Indicates that an I/O operation has been canceled for this 
buffer, because an EOF, EOT, or end-of-reel condition has occurred as a^ 
result of an I/O operation for another buffer on the same file. Access 
ibie at any time. Set only by the MCP when an end-of-file condition 
is detected. Not label equatable. Values 1 (TRUE) or (FALSE) with a 
default of FALSE. Direct I/O attribute. 

lOCHARACTERS (12) 

Integer. Returns the number of characters transferred on the last 1/0 
operation for the specified buffer if the operation was complete. 
Accessible at any time. Set only by MCP. Values of zero to size of 
buffer. Not label equatable. Direct I/O attribute. 

lOCOMPLETE (8) 

Boolean. Returns a FALSE if an I/O operation is in progress for the 
specified buffer or a TRUE if the operation is complete. Accessible at 
any time, and is set by MCP only. Not label equatable. Direct I/O 
attribute. 

lOCW (2) 

Integer. Accepts or returns the I/O control word (lOCW) for the speci- 
fied buffer. Accessible at any time. Nay be set at any time. A zero 
will reset the lOCW. When set, this attri bute wi 1 1 stay set until 
changed by user. Not label equatable. Direct I/O attribute. 

lOEOF (6) 

Boolean. Returns a one (TRUE) if the end of file was detected as a 
result of the last 1/0 operation for the specified buffer. Accessible 
at any time. Read-only. Values = (FALSE), end of file was not 
reached; (TRUE), end of file was reached. Not label equatable. Direct 
I/O attribute. 

lOERRORTYPE (4) 

Integer. Indicates the error, if any, which occurred as a result of 
the last I/O operation for the specified buffer. Accessible at any 
time, and set only by MCP. Direct I/O attribute. Values and meanings 
are : 
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Less than An undefined error occurred 

No error occurred 

1 Not ready 

2 Parity 

3 Rewinding 

'4 Descriptor error 

5 End of tape or beginning of tape 

6 End of file or write loclwut 

7 An attempt was made to exceed the size specified for a 
disk row or to read past the end of a disk file 

8 1/0 was cancel led 

9 Short record 

10 Break - (Datacom) 

lOINERROR (S7) 

Boolean. Indicates that a read or write error has occurred on a disk 
tile Used wrth disk file data recovery. May be read at any time. May 
not be set or changed programmaticai ly. Values: TRUE if error is 
associated with file, FALSE otherwise. Not label equatable. 

lOMASK (1) 

Integer. Provides the ability to set or read the 1/0 error mask word 
in the 1/0 control block (lOCB), which allows the user to specify those 
errors that will be handled by the MCP. Hay be read or set at any time 
Values: zero argument (RESET) causes the MCP to handle all errors. The 
bits which may be set correspond in position and in meaning to the error 
field (bits 16:17) of the result descriptor for the I/O device associ- 
ated wi th the f I le. When set, the attribute will remai n set unt i I it is 
reset by the user. Not label equatable. Direct 1/0 attribute. 

lOPENDING (7) 

Boolean, Indicates whether or not an 1/0 operation for the specified 
buffer IS being processed or is waiting to be processed. Accessible 

vIimpI TiT.Mrf'""^; '"'' r* "°' "" •"'tiBf.ze,! programmat I cal ly . 
Values: 1 (TRUE) or (FALSE). Not label equatable. Direct I/O 
attn bute. 
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lORECORDNUM (10) 

Integer. Disk files only. Returns the logical record number of the 
last I/O performed for the specified buffer. Accessible at any time and 
set only by MCP . Value ranges from zero to the size (in records) of 
the file. Used in disl< file data recovery. Not label equatable. 
Direct I/O attribute. 

lORESUlT (S) 

Boolean. lORESULT is a direct I/O, read-only attribute which returns 
the result descriptor for a completed I/O. If a one is returned, then 
the I/O was cancelled. 

lOTIME (9) 

Integer. Returns the elapsed time for the I/O operation associated with 
the specified buffer. Accessible at any time. Read-only. Not label 
equatable. Direct I/O attribute. 

lOWORDS (11) 

integer. Returns the number of words transferred on the last I/O opera- 
tion for the specified buffer if the I/O operation was complete. Acces- 
sible at any time. Read-only. Values range from zero to buffer size 
(in words). Not label equatable. Direct 1 /O attr i bute . 

KIND (8) 

Integer. Describes the peripheral unit associated with the logical 

file. 

The values, mnemonics and meanings of the Kind attribute are as follows: 

r^nfr-rtl TarH f.omo i I E t Mnemonics Device 



1 



1 


(default) 
DISK * 


Any unit 


2 


2 


DISPLAY 
SPO 


Single Line Control 


3 


3 


REMOTE 


Data Communications 



PAPERREADER Paper Tape Reader 

PAPER 

PTR 

PAPERPUNCH Paper Tape Punch 

PTP 
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Lontrol Card 


Compiler 


Mnemonics 
PRINTER 


Device 


22 


7 


Line Printer 


18 


9 


READER 


Card Reader 




10 




Pseudo Reader 


11 


11 


PUNCH 
CP 


Card Punch 


13 


13 


TAPE? * 


7-Tracl( (NR2) Tape 


U 


111 


TAPES * 


9-Tracl< (NRZ) Tape 


15 


15 


PETAPE « 


9-Traclc (phase encoded) Tape 


28 


>i5 


TAPE * 


Any Tape 


17 


17 


DISKPACK 
PACK 


Disk Pack 



* Can be modified by "Bacl<up" in Control Card, 
e.g., KIND-PRiNTER BACKUP TAPE?. 

lABELTYPE (9) 

Integer. Specifies the type of output file label (STANDARD or OMITTED). 
Valid only for output files. Label is USASI label. Accessible at any 
time. May be set or changed at any time that file is open. 

STANDARD 

1 OMITTED 

3 OMITTEDEOF 

Default values are: OMITTED for paper tape punch, remote, and display 
files; STANDARD for tape, printer, punch, and disk files. Label equatable 
(LABELTYPE - <labeltype mnemonio). Initialized by file declaration 
(ALGOL) (LABELTYPE - <value or mnemonio), LABEL RECORDS clause (COBOL) 
FILE card (FORTRAN). ' 

For tape files: 

OMITTED - indicates an old-type COBOL unlabeled tape. 
Reading a tape mark causes an attempted reel 
switch which can be ULed or FRed. 

OMITTEDEOF - indicates an old-type ALGOL unlabeled tape. 
Reading a tape mark causes EOF action. 
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Integer. Indicates the physical record number of the last record in a 
file Valid only for permanent disl< files (that is, files which have 
been closed, entered in the disk file directory, and then reopened) and 
is read-only. Accessible at any time. 

LASTSTATION (106) 

Datacom file attribute. Integer. Specifies the station to which output 
is to be directed. I^eturns the relative station number (RSN) of the 
station from which the last input was received by the object program, 
unless LASTSTftTION was explicitly set. Nay be interrogated or set 
whenever the file is open. Valid RSN numbers are always greater than 
zero, and the default value of LASTSTATION when the file is opened is 
zero LASTSTATION is implicitly set by a READ or a directed WRITE state- 
ment. A write to a file for which LASTSTATION - is interpreted as a 
broadcast write to every station attached to the file. 

LINENUM (52) 

Integer. Accessible whenever physical file is assigned to logical file. 
May be set at any time. Only meaningful for PRINTER files when PAGESIZE 
attribute has been set. Indicates the current line number for the page 
between zero and the value of PAGESIZE. Setting LINENUM to a value less 
than the current line causes an end of page (EOF) result. Not abel 
eguatable. Default is initially one, and is incremented each time a 
record is written on file. Initialized in file declaration or assignment 
statement (ALGOL), and PROCEDURE DIVISION statements (COBOL). 

MAXRECSIZE (15) 

Integer. Specifies the maximum record size contained in or permitted on 
a file. Accessible at any time and may be set only when file is closed. 
Value ranges from one to 65,535 INTMODE units if UNITS attribute is 
egual to one. Otherwise, value is given in words. If left unset or set 
to zero, a default value will be assigned by the 1/0 subsystem. The 
default value depends upon the assigned peripheral unit (KIND) and the 
value of the attribute BLOCKSIZE. Label ""="'>1= "*^^f"'"/, „„nBn 
<integer>) Initialized by file declaration (ALGOL), FILE card (RECORD 
= <integer>) (FORTRAN), size of largest record in Record Description 
(COBOL). 

MINRECSIZE (16) 

Integer. Specifies the minimum record size contained in or permitted 
on a file Accessible at any time and may be set only when file is 
closed. Value range from one to 65,535 INTMODE units if UNITS attribute 
is egual to one. Otherwise, value is given in words. Default - same 
as MAXRECSIZE. Label equatable (Ml NRECS I ZE - <i nteger>) . Initialized 
by file declaration (ALGOL), size of smallest record in Record Descrip- 
tion (COBOL). May not be initialized (FORTRAN). 
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MYUSE (20) 

Integer. Specifies how tiie program will use tile file. Accessible at 
any time and may be set only wiien file is closed. 

CLOSED 

1 IN 



3 10 

Default is I (IN), assigned wiien file is opened. Label equatable 
(HYUSE = <mnemonlc>). If tile object program does not explicitly open 
the file (this is done in ALGOL by setting the OPEN attribute to TRUE: 
all COBOL files must be explicitly opened) then, unless the HVUSE value 
IS 10, the opening action {Read or Write statement) determines the set- 
ting of the HYUSE attribute (IN or OUT respectively). If MYUSE has not 
been set and the file is opened explicitly, MYUSE is set to IN. 

OPEN (30) 

Boolean. Indicates whether or not the file Is open. Accessible at any 
time and may be set at any time. Setting the attribute to FALSE when 
file IS open closes the file witli retention. Setting the attribute to 
TRUE when file is closed opens the file. Not label equatable. Set by 
first READ or WRITE statement (ALGOL, FORTRAN), OPEN statement (COBOL). 
May be referenced either by value or mnemonic. 

OPTIONAL (11) 

Boolean. Indicates whether a file which is not present at file open 
time may be specified as an optional file by the operator. (See OF 
message in Section 12.) Accessible at any time and may be set only 
when file is closed. 

FALSE (the file is required) 

1 TRUE (the file is optional) 

Default is FALSE. Label equatable (OPTIONAL = <mnemonic>). Initial- 
ized in file declaration (ALGOL), (OPTIONAL = <value or mnemonio), by 
SELECT statement (COBOL). Not used (FORTRAN). 
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PACKNAME (39) 

Pointer. Returns the name of the disk pack on which the file is located. 
Read-only, and may be read at any time. Accessible in ALGOL, COBOL, 
E5P0L, and DCALGOL. Kay be specified in file declaration. 

PAGE (51) 

Integer. Indicates the page number of the current logical page In re- 
lation to the PAGESIZE. Accessible whenever physical file is assigned 
to logical file. May be set at any time. Meaningful for print files, 
and only when PAGESIZE attribute has been set. Value ranges from zero 
to value of current page. Default is initially 0, and Is incremented 
each time a page is written on the file. Not label equatable and may be 
initialized In file declaration or assignment statement (ALGOL) or by a 
PROCEDURE DIVISION statement (COBOL). 

PAGESlZi (50) 

Integer. Specifies the number of lines on a logical page- May be set 
or read at any time. Meaningful for print files. May have a value of 
one to 255. Label equatable (PAGESIZE = <integer>). Initialized by 
file declaration (ALGOL), LINAGE clause (COBOL). May be interrogated or 
set by ALGOL statements or COBOL PROCEDURE DIVISION statements. 

PAGESIZE (50) 

Datacom station attribute. Integer. Returns the number of lines on a 
logical page as specified in the NDL description of the station. Ac- 
cessible only when file is open and read-only. Set by the NDL descrip- 
tion only. 

PARITY (7) 

Integer. Specifies whether parity Is odd or even. This attribute has 
meaning for 7-track magnetic tape files only. Accessible at any time 
and can only be set when file is closed. Set by value or mnemonic In 
ALGOL. 

STANDARD (Binary or odd parity) 

1 NONSTANDARD (Alpha or even parity) 

POPULATION (100) 

Datacom and general file attribute. Integer, Returns the number of 
stations assigned to the file or the number of users assigned to perman- 
ent disk file. Accessible only when file is open. Set only by MCP. 
Maximum population is equal to FAMILYSIZE. 
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PRESENT (31) 

Boolean. A read-only attribute that returns; 

1 TRUE {file is present and assigned to the logical file) 

2 FALSE (file is not present) 
Not label equatable. 

PROTECTION (12) 

Integer. This attribute applies only to output disk files. The values 
of protection are as follows: 

TEMPORARY 

1 SAVE 

2 PROTECTED 

The default value of PROTECTION is temporary. This means that a new 
disl< file IS thrown away when the program goes to end of job, or the 
blocl< in which the file was declared is exited, unless the file is ex- 
plicitly closed and locked. If the file is locl<ed, an entry is then made 
in the Disl< Directory and the file becomes a permanent disk file. 

If PROTECTION is set to save, an entry in the Disk Directory is made 
immediately when the file is opened. The file becomes a permanent disk 
file and remains after the program has finished, unless the file is ex- 
plicitly closed and purged. 

If PROTECTION is set to Protected, an entry in the Disk Directory is made 
immediately when the file is opened; and as the disk areas are allocated. 
They are encoded with a pattern which makes it possible to discover the 
last valid block written on that area in the event of a Halt/Load. 

READCHECK (83) 

Boolean. If set to TRUE, this attribute causes every disk write to be 
immediately fol lovved by a disk read for verification of data. If a read 
parity occurs, the write is reinitiated followed by a read for nine more 
times or until a successful read. Until this sequence is complete, the 
incomplete bit in the associated I/O control block (lOCB) is off. If 
these attempts are unsuccessful, the lOCBwill indicate an irrecoverable 
write error occurred. The default value for READCHECK is FALSE. See 
disk file data recovery document. 
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RECEPTIONS (107) 

Oatacom station attribute or file attribute. Integer. Station attri- 
bute returns tfie number of messages which have been received by the ob- 
ject program from the station. The file attribute returns the number of 
iges which the object program has received from all of the stations 
ined to the file. Accessible only when file is open'. Read-only. 



messagi 
assig 

RECORD (46) 

Integer. Indicates the current position in the file. Values: Minus one 

to an end of file value. Default: Initialized to minus one by HCP at 

time file is opened, incremented by one as each record is written or 
accessed. Not label equatable. 

RECORDINERROR (84) 

Integer. Specifies the logical record number of the disk file record 
most recently in error. Used for disk file data recovery. Accessible 
at any time. A read-only attribute. Value may range from one to the 
maximum number of logical records contained on the file. Not label 

equatab le. 

RECORDKEY (86) 

Integer. Returns the logical record number of the disk record most 
recently in error. Used for disk file data recovery. Read-only. 
Accessible at any time. Value may range from one to the maximum number 
of logical records contained on the file. Not label equatable. 

REEL (1) 

Integer. Specifies the reel number of a tape file. May be read or set 
at anytime. May have a value of one to 9399- Default value: the first 
reel has a value of one, the value for each succeeding reel of a file 
will be incremented by one. Label equatable (REEL = <integer>). This 
attribute is file relative, and is reset to one at the beginning of each 
new file on a multifile tape. 

RESIDENT (42) 

Boolean. Indicates the status of the physical file which is to be 
assigned to the logical file. Access ible when file is closed. Read-only 
attribute. 

FALSE (not present) 

1 TRUE (present) 
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interrogating this attribute does not cause the file to be assigned to a 
logical file or to be opened (see PRESENT). However, if Filetype is 
seven, or eight, following a test for resident (which returns true), the 
other attributes which describe the permanent (physical) file will now 
be accessible. Label equatable. 



ROWADDRESS (64) 

integer. Returns the address of the specified row of a disk file. Used 
in disk file data recovery. Accessible at any time the physical file 
is assigned to logical file. May be set only by MCP. Not label 
equatable. 

ROWINUSE (60) 

Integer, Disk files only. Returns the number of rows in use; that is, 
the number of rows of a disk file to which data have been written. 
Accessible at any time that physical file is assigned to logical file. 
Read-only attribute. Not label equatable. 

SAVEF ACTOR (S) 

Integer. May be set only on output files. May have a value of zero 
to 999. Default = zero. Label equatable (SAVEFACTOR = <integer>) . 
Initialized by file declaration (ALGOL), SAVE-FACTOR IS clause (COBOL) 
FILE card (FORTRAN). 

SCREEN (116) 

Datacom station attribute. Boolean. Returns a value of TRUE if the 
station has been declared in NDL to be a screen device. Accessible 
only when file is open. Read-only. 

SECURITYOUARD (079) 

A pointer valued attribute which names the guard file if security is 
invoked for the file. 

SECURITYTYPE (80) 

Integer. Controls or specifies the type of security associated with a 
disk file. Accessible only when file is open. Nay be set at any time 
The values are as follows: 
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2 CLASSB 

PRIVATE - Only ttie creator of the file (specified by USERCODE) may 
access the file. Default = (PRIVATE) if file is 
created by a job for which a usercode was specified. 
Default = 1 (CLASS A) for files created by all other 
jobs. Label equatable (SECURI TYTYPE = <mnenionic>). Hay 
be interrogated in ALGOL or COBOL. May be set in ALGOL 
program or COBOL program which creates the file. May 
be changed by a SECURITY COMMAND control statement. 

CLASS A - Access to CLASS A files is controlled by the MCP at file- 
open time. The factors governing access to a file are 
the user class and security class of the user desiring 
access, the type of access desired by the user, and the 
file type of the file which the user desires to access. 
Each system user will have a USER ID and his user class 
and security class will be associated with this ID by 
means of a special file. From the point of view of file 
security, there are four types of files access which a 
user may request: READ-ONLY, READ/WRITE, LIBRARY MAINTE- 
NANCE, and SECURITY MAINTENANCE. The file type indicates 
whether access to the file is restricted and if so how. 
If access is restricted, then there will be a class of 
privileged users which may be determined on the basis of 
user class, security class, or both of these. A non- 
privileged user is not necessarily denied ail access to 
the file; he may, for example, be allowed read-only 
access to a file which only privileged users may alter. 
On the other hand, a nonpr i vi leged user might be denied 
a) I access to a f i te to which pri vi leged users had only 
read-only access. 

CLASS B - Others may use the file subject to the constraints 
supplied by the guardfile. 

The following constraints apply to the use of this attribute and also 
the use of SECURITYUSE (#81). 

1. To read the attribute. If the file is not open then the 
attribute must be explicitly set prior to the attempt and 
subsequent to the last close on the file. 
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2. To set the attribute. For permanent files the attribute may 
only be set by a job under the usercode associated with the 
file or by a privileged user. If the file was created without 
a usercode, then only a privileged user may alter the security 
attributes. ALGOL programs can set the attribute by either 
value or mnemonic. 

SECURITYUSE (81) 

Integer. Controls or specifies the manner in which the disl< file may 

be accessed. Accessible only when file is open. Hay be set at any time. 

The values are as follows: 

SECURED 

1 IN 



SECURED indicates that no one except the creator of the file may access 
the file with the exception that if it is a CODEFILE it may be executed. 

IN, OUT, 10 indicate READ-ONLY, WRITE-ONLY and READ/WRITE, respectively. 

See SECURITYTYPE attribute for constraints on accessing or changing 
SECURITYUSE attribute. Default is 10. Label equatable (SECURITYUSE - 

<mnemonic>) . 

SERIAINO (62) 

Returns the physical serial number of a magnetic tape. Presently an 
integer in value but will be changed in the near future to a string 
attribute to meet the original specifications. Read-only attribute 
and is accessible at any time. May be set only by using the "SN" input 
message. Value may range from zero to 999993. Not label equatable. 

SINOLEPACK (40) 

Boolean. Disk pacl<s only. Specifies that the areas of an output file 
are to be assigned to a single disl< pack. The default value is FALSE 
which provides for distribution over multiple packs, the number of packs 
being the number present when the file is open. If an additional member 
of the pack set is mounted subsequent to file open, then it will be in- 
serted into the rotation scheme of allocation. 

Areas are uniformly distributed over all packs of a pack set. The file 
must have a multi-file ID which matches the name of the pack set; e.g., 
file A/B requires a pack or packset named A. 
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SIZEMODE (32) 

Integer. Specifies the units in wliich record size is given for FiLE- 
TYPe\ (four). Accessible at any time. May be set only when fiie is 
closed. The values and mnemonics are the same as INTMODE attribute. 

Label equatable (SIZEMODE - <iiinemon i c>) . 

SIZEOFFSET (33) 

integer. Points to the file within the record that specifies the size 
of the record. Used with FILETYPE 1. (four). May be read at any t,me. 
May be set only when file is closed and its value may range from zero 
to 65,535 in SIZEMODE units. Label equatable (SIZEMODE = <mnemon,c>). 

SIZE2 (34) 

Integer. Indicates the length of the field pointed to by SIZEOFFSET 
used with FILETYPE k (four). Accessible at any time. Hay be set only 
when file is closed. Value may range from zero to 65,535 m SIZtMOUt 
units. 

SPEED (24) 

Integer. S| 
al locating I 
either value or mnemonic 



Integer. Specifies the speed of a disl< storage unit. It is used when 
allocating AREAS to a disk fiie. May be read or set at any time by 



FAST 

1 MEDIUMFAST 

2 MEDIUMSLOW 

3 SLOW 

Default value - (FAST). Label equatable (SPEED - <mnemonic>). 

STATE (3S) 

Integer. Read-only attribute that returns the current ""^i''"" °! % 
file. Accessible only when the file is open, ^"f J» "^^J""'^""' ' = = 
word which is a copy of the SOFTWARE I/O RESULT DESCRIPTOR. 

The fields of this word contain the following information regarding the 
most recent I/O operation on the file: 
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Field 


[0:1] 


116:16] 


W:!] 


[7:1] 


[S:l] 


[10:1] 


113:1] 


[15:1] 


[16:1] 


[24:8] 



If this bit is on, an error has 
occurred and the following field Is 
nonzero. 

Error information. 

If this bit is on, a data error has 
occurred (size error for variable- 
length records) . 

if this bit is on, a parity error has 
occurred. 

If this bit is on, EOF or end-of-page 
was encountered. 

If this bit is on, a short block has 
been read. This is reported wi thout 
[0; 1 ] being turned on. 

If this bit is on, this datacom file 
encountered a break on output. 

If this bit is on, the I/O time limit 
was reached. 

If this bit is on, a security violation 
occurred. 

Qualification information. Reason for an 
EOF encountered on a datacom file. 

Value Meaning 

1 File assignment denied. 

2 File assignment postponed. 

3 1 1 legal use of file. 

f'^^-^O] Actual data size of the last logical 

record read or written in INTMODE units 

or words as specified by the value of 

the UNITS attribute of the file. FILETYPE 

must be equal to 3 for this field to reflect 

the actual size of the record rather than the 

declared size of the buffer. 

TAPEREELRECORD (88) 

integer. Tape files only. This attribute will return the record number 
of the last record read or written relative to the beginning of the 
current tape reel. For example, after reading the first record of the 
second reel, TAPEREELRECORD will return a zero- 
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Note 1; The "close reel" construct will close the current reel without 
adjusting the record count of the file. 

Note 2: TAPEREELRECORD on a closed file will be -1; using TAPEREELRECORD 
on a non-labeled tape or non-tape file will give an attribute 
e r ro r # 88 . 

Note 3; Reel switching during a spacing operation will maintain record 
and block counts for use by TAPEREELRECORD and block count 
checking. 

TITLE (0) 

Pointer. The external file name, a series of identifiers separated by 
slashes and terminated by a period. May be read at any time. A permanent 
disk file can have its TITLE change when the logical file assigned to it 
is opened. Each identifier in the title must be 17 characters or less. 
Default value is the internal file name. Label equatable (TITLE = 
<file 10>). Initialized by file declaration in ALGOL, (TITLE = 
"<file ID>."), by VALUE OF ID IS "<f i le-t i tle>" clause in COBOL, and 
FILE card in FORTRAN. Note that the ALGOL file declaration requires that 
the name be terminated with a period and enclosed in quotes, CONTROLCARD 
allows but does not require the name to be in quotes and disallows the 
terminating period. The COBOL clause requires that the name be enclosed 
in quotes but does not accept the period, and the FORTRAN FILE card per- 
mits neither the period nor the quotes. 

TITLE (0) 

Datacom station attribute. Pointer. Returns the name of the station 
(as specified in the NDL description of the station). Accessible only 
when file is open. Read-only. If the relative station number (RSN) 
passed as a parameter is invalid, a ZERO length identifier will be re- 
turned followed by a period. If the RSN equals ZERO the action is the 
same as for the general file attribute TITLE and returns the title or 
external name of the file. 

TIMELIMIT (105) 

The Datacom file (KIND = REMOTE) attribute. TIMELINIT is a positive 
real number in units of seconds. It can be both set and read. The 
attribute can be set via a label equation, in the file declaration, at 
runtime with the file either opened or closed, or in read or write state- 
ments. It can be read only while the file is open. The action when 
TIMELIMIT is greater than zero, is as follows: 

a. On a read statement, if no input is received within TIMELIMIT 
seconds, the read statement is terminated with a TIMELIMIT error. 

b. On a write statement, if no buffer becomes available within 
TIMELIMIT seconds, the write statement is terminated with a 
TIMELIMIT error. 
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A TIHELIHIT error is reported by the logical I/O result descriptor 
having the attention bit [0:1] and bit [15:1] turned on. 

Syntax for setting TIMELIHIT in an AUOL 1/0 statement: 

ADD TO THE <RECORD NUMBER OR CARRIACE CONTROU DEFINITION. 

[TIHELIHIT <ARITHNETIC EXPRESSI0N>1 

Example: 

WRITE(FILEI0 [TIHELIHIT 25.3] , 12,ARRAyR0W) ; 

TRANSMISSIONO (117) 

Datacom station attribute. Integer. Returns the transmission number 
of the transmission most recently received from the station by the ob- 
ject program. Accessible only when the file is open. Read-only. If 
the NDL description does not request the DCP to assign transmission num- 
bers to the transmissions of the station, the value returned will be 
minus one. 

TRANSMISSIONS (112) 

station or file datacom attribute. Integer. Station attribute TRANS- 
HISSIONS returns the number of output messages sent to the station. 
File attribute TRANSHI SS IONS returns the number of output messages sent 
to all stations attached to the file. Accessible whenever file is 
open. Read-only. 

UNITNO (78) 

Integer. Accepts or returns the hardware unit number of the physical 
unit to which the fi le is assigned or to which the file is to be as- 
signed. Accessible only when file is open. Hay be set whenever file 
IS closed. This unit number is used as an index into the MCP unit 
table. 

UNITS (73) 

Integer. Indicates whether BLOCKSIZE, MAXRECSIZE, HINRECSIZE, and 
UNITSLEFT will be specified in INTMODE units or W-bit words. Accessi- 
ble at any time. Hay be set only when file is closed. Default value 
- (WORDS). Label equatable (UNITS - <mnemonic>). Values and 
mnemonics are as follows: 

WORDS ClS-bit units) 

1 CHARACTERS (INTMODE defined units) 
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UPDATED (57) 

Boolean. Indicates whether or not a disk file is updated (that Is, has 
been read since it was created, thus resetting the starting date to 
which SAVEFACTOR is referenced). May be read at any time. Set only by 
HCP. Not label equatable. 

USEDATE (61) 

Integer. Returns the date of last usage of a disk file in the form 
yVODD (JULIAN). Accessible at any time. Set only by HCP. Not label 
equatable. 

VERSION (4) 

Integer. Indicates the version (of a CYCLE) of a file created on a 
specific DATE. Accessible at any time. May be set only when f. e is 
closed. Values range from one to 99, with default of one. Label 
equatable (VERSION - <integer>). Initialized by file declaration in 
ALGOL, LABEL clause and USE routines in COBOL and is not specifiable 
in FORTRAN. 

WIDTH (118) 

Datacom station attribute. Integer. Returns the logical line length 
in characters for the station as specified in the NDL description of the 
station. Accessible when file is open. Read-only. 
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BCL/EBCDIC TRANSLATION 

When 80 column BCL card-code punch cards are read into EBCDIC buffers, 
the five BCL characters +■<-<_ ^ ^ are translated to HEX CO ^F 5F 6D 70 
respectively. 

When EBCDIC buffers are written to Burroughs Drum Printers (with PC En- 
coder lugs 7 to 8 jumpered) the EBCDIC bytes kf 5F 6D 7D are carried to 
the A unique characters specified for the drum option installed on that 
printer. 

When EBCDIC buffers are written to 7 track even parity tapes, all bytes 
that map to the "?" character when translate from EBCDIC to BCL are re- 
translate by the tape control into the ">_" character. This is because 
the BCL "?" character is six zeroes which under even parity recording 
would result in writing of a tape drop out. 

The following table clarifies the 80 column card reader and drum printer 
transl at ion: 



BCL card code 
BCL graphic 

BCL internal 6-bit code (octal) 

EBCDIC code (HEX representation) 

Usual EBCDIC graphic 

EBCDIC card code 

Line printer graphics printed 
when 8-bit byte write issued: 

With line printer PC encoder 

card not jumpered from 7 to 8: 

(al 1 drum options) 

With line printer PC encoder 
card jumpered from 7 to 6: 

(1) Burroughs EBCDIC drum S 
EBCDIC encoder 

(2) Burroughs USA BCL drum & 
BCL encoder 

(3) Burroughs Latin American BCL 
drum £ Portugese BCL encoder 

C*) UK option EBCDIC 

(5) Burroughs Latin American BCL 
drum £ Spanish encoder 



-78 



(PLUS) 


(ARROW) 


(LEQ) 


(NEd) 


(GEO) 


20 


37 


57 


Tl 


17 


CO 


llF 


5f 


6D 


7D 



-78 058 
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DATA TRANSLATION COMBINATIONS FOR MAGNETIC TAPE FILES 

OUTPUT TAPES: 



IF FILE IS 
ASSIGNED TO: 


ANO 
PARITY IS: 


AND RECORD 
DESCRIPTION IS: 


THEN 
OUTPUT IS: 


TAPE 


ODD 


EBCDIC 


EBCDIC 9-TRK BINARY 


TAPE 


EVEN 


EBCDIC 


1 L LEGAL 


TAPE 


ODD 


BCL 


BCL 7-TRK BINARY 


TAPE 


EVEN 


BCL 


BCL 7-TRK ALPHA 


TAPE 9 


ODD 


EBCDIC 


EBCDIC 9-TRK BINARY 


TAPE 9 


EVEN 


EBCDIC 


ILLEGAL 


TAPE 9 


ODD 


BCL 


BCL 9-TRK BINARY 


TAPE 9 


EVEN 


BCL 


i LLEGAL 




TAPE 7 


ODD 


EBCDIC 


EBCDIC 7-TRK BINARY 


B 5700 
TAPES 


TAPE 7 
TAPE 7 


EVEN 
ODD 


EBCDIC 
BCL 


BCL 7-TRK ALPHA 
(DATA IS TRANSLATED) 

BCL 7-TRK BINARY 




JAPE 7 


EVEN 


BCL 


BCL 7-TRK ALPHA 



INPUT TAPES: 



If 




AND 


ANO RECORD 


THEN INPUT 


TAPE 


IS: 


PARITY IS: 


DESCRIPTION IS: 


DATA 1 S : 




7- OR 


ODD 




NOT TRANSLATED 




9-TRK 






REGARDLESS OF INTER- 
NAL DESCRIPTION. 




7-TRK 


EVEN 


EBCDIC 


TRANSLATED TO EBCDIC 
FROM EXTERNAL BCL. 




7-TRK 


EVEN 


BCL 


TRANSLATED FROM 
EXTERNAL BCL TO 
INTERNAL BCL. 



For legal combinations with tape where EXTMODE = I NTMOOE , or If either 
is of type SINGLE (VALUE=0} , there is no software translation. 
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FIKED/VAR. 


TYPE OF 


TRANSPARENT 




PHYSICAL MEDIA TRANSFER 






MEDIA 


ACCtSS 


BLOCKING 


LENGTH 


OPEN 


WORK AREA 




(AT TIME OF REQUEST) 












RECORDS 




("PROCESSING 
BOX")? 


OF LOGICAL RECORD REFERENCED IN PROGRAM? 


COHHENTS 
buffer 




ONE FILE 


WFFER 


TWO OR MORE FILE BUFFERS 




SEO 


UNBLKD 




INPUT 


NO 


READ 


WRITE 


READ 


WRITE 


YES 




™ 












1 




OUTPUT 






YES*# 






















INPUT 


NO 


YES 




NO 
















1 




OUTPUT 


NO 




YES## 




YES** 


buffer fil 


' 


BLKD 




INPUT 


NO 


VARIES* 




NO 




buflir ivltc 


olltr 














OUTPUT 


NO 








VARIES*** 


Iciit r.c.in 


block 














INPUT 


NO 


VARIES-^ 




NO 






on 












OUTPUT 


MAYBE* 




VARI£S*#I 




VARIES*** 






DISK 






INPUT 




YES 




NO 




















OUTPUT 


NO 








YES** 


buffet- 


















I/O 


NO 




YES** 


NO 


YES** 
























YES 


























OUTPUT 


NO 




¥£S** 




YES** 


bLffer fil 


















I/O 


NO 


YES 


YES** 


NO 


YES** 






BLKD 




INPUT 


NO 


VARIES.' 




NO 




buffir 


















OUTPJT 


NO 








VARIES*** 


loirch 


















I/O 


YES 


VARIES* 


VARIES*** 


NO 


VARIES*** 


Oft». iBlt 1 


















INPUT 


NO 






NO 




in block ii 


















OUTPUT 




VARIES'' 


VARIES*** 


- 


VARIES*** 
VARIES*** 


proeaiitd 
multi-bifft 


tlUt 
































KANOOn 


UNSLKO 




INPUT 


NO 


VARIES-^' 




VARIES** 






















OUTPUT 


NO 




NO*-- 




NO'** 




















I/O 


NO 




N0"»" 


VARIES** 


NO'"" 




















INPUT 




VARIES"* 




VARIES** 






















OUTPUT 










N0*>»" 




















I/O 


NO 


VARIES*" 


NO"* 


VARIES** 








BLKO 




INPUT 




VARIES^'* 




VARIES** 
















1 




OUTPUT 


NO 








NO*** 
















I/O 


YES 


VARIES^* 


NO*** 


VARIES** 


NO*** 







> 
z 



o 

O 



o 
o 



o 

o 
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The standard software released by Burroughs includes the MCP , the 
intrinsic files, the compilers, and various utility programs. This 
software can be copied (from the object file), or can be copied and 
compiled (from the source file), just as any user program can be copied, 
or copied and compiled, from a user's object or source file. The 
accompanying chart shews the nan>e and purpose of most of the standard 
software items, the source language in which the item is written, and 
the names of the files containing the source code and the object code. 

G«n«ration Proc«dur*s 

The system tape includes dual-processor capability. To take advantage 
of this capability, a duat-processor machine at functional level 13 is 
required. If one does not wish to make use of this capability, a 
machine at functional level 12 will be satisfactory for the operation of 
the software. Functional level 13 is defined to be functional level 12 
plus the following changes: 

El 30173/REE 5^869/ 

El 3017VREE 5^95V 

El 15908-A/REE 5A863/ 

El 30305/REE SfigSS/ 

Compilotion and Patching of Standard Software 

Any of the standard software items may be compiled by first copying the 
source file to disk and then using a standard compilation deck for the 
language in which the item is written. The item may be patched in the 
same manner as any program may be patched. The ALGOL compiler and the 
DCALGOL compiler are both contained on the same source file. The 
compile-time options associated with MCP compilations are described 
under the topic of "MCP Compilations" at the end of the present discus- 
sion. In these cases, determination of the program to be compiled is 
made by the setting of user options on the compiler control cards. The 
following are typical of the compiler control cards to be used. 

I tem Compi ler Control Cara 



ESPOL or $ SET MERGE BCL CHECK LEVEL 2 
XALGOL 

FORTRAN, $ SET MERGE CHECK LEVEL 2 

BINDER, or 

COBOL 

ALGOL $ SET MERGE CHECK ALGOL LEVEL 2 RESET OCALGOL 
(ALGOL and DCALGOL are user options) 

DCALGOL $ SET MERGE CHECK DCALGOL LEVEL 2 RESET ALGOL 

ALGOLFILTER S SET MERGE CHECK BCL 

COBOLFILTER S SET MERGE CHECK 

LOADER S SET MERGE CHECK DECK 

HCP^^ S SET MERGE CHECK 

* Note: To compile the MCP, a <l> ESPOL STACK = 1200 card is recommended. 
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The following are sample card decks which display the manner 
standard software items may be compiled. 



Compilation of the ALGOL Compi ler : 



i] 




f <I>STACK - 1000; CORE - 15000. 13000 



<l>ALGOL FILE NEWTAPE (TITLE = SYMBOL/ ALGOL) 



f <l>ALGOL FILE TAPE (TITLE = SVHBOL/ALGOL) 
<l>COHPILE SYSTEH/ALGOL WITH ALGOL LIBRARY 



Compi 1 at ion of the DCALGOL Compiler: 



JE 



ET HERGE CHECK DCALGOL LEVEL 2 RESET ALGOL 



('<!> EBCDI 



f<l> ALGOL FILE TAPE (TITLE - SYHBOL/ALGOL 
~l> COMPILE SYSTEH/DCALGOL ALGOL LIBRARY 
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Compilation of the COBOL Filter P rogram: 
\'l> END 



f$SET HERGE CHECK 



f<l> EBCDIC 

\<\' COBOL FILE TAPE (TITLE° SVHBOL/COBOLFI LTER) 




(NOTE: <l> represents an invalid character 



If several patches are to be made to a software item, the utility patch 
merge program (SYSTEH/PATCH) may be used. This program merges individ- 
ual patches into a master patch deck. For further information, see the 
detailed description of the patch merge program. 
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NAME 


PURPOSE 


SOURCE 
LANGUAGE 


NAME OF 
SOURCE FILE 


NAME OF 
OBJECT FILE 


COMMENTS 


ALGOL 


Compi ler 


ALGOL 


SYMBOL/ALGOL 


SYSTEM/ALGOL 




ALGOL FILTER 


Translator 


ALGOL 


SYMBOL/ALGOLFILTER 


SYSTEH/ALGOLFILTER 


Converts B 5500 or 
B 6700 Compatible 
ALGOL (XALGOL) to 
B 6700 Extended ALGOL. 


ALGOLINTRINSICS 


Intrinsic 


ALGOL 


SVMBOL/ALGOLINTRINSICS 


SYSTEM/ INTRINSICS 


Bound into Intrinsics File 


BACKUP 


Ut i 1 1 1', 


ALGOL 


SYMBOL/BACKUP 


SYSTEM/BACKUP 




BASIC 


CompI ler 


ALGOL 


SYMBOL/BASIC 


SYSTEM/BASIC 




BINDER 


Binding 


ALGOL 


SYMBOL/BINDER 


SYSTEM/BINDER 


Al lows program uni ts 
written in the same 
language or in different 
languages to be bound 
into a single program. 


CANDE 


Message 
Control 
System 


DCALGOL 


SYMBOL/CANDE 


SYSTEM/ CANDE 


Compilation requires 
300-word stack and 8000- 
word core capacity. 


CARD LINE 


Uti 1 ity 


ALGOL 


SYMBOL/CARDLINE 


SYSTEM/CAROLINE 




CCTABLEGEN 


Table 
Generator 


ALGOL 


SYMBOL/CCTABLEGEN 


SYSTEM/CCTABLEGEN 


Produces tables used by 
MCP CONTROLCARD procedure 


COBOL 


Compi ler 


ALGOL 


SYMBOL/COBOL 


SYSTEM/COBOL 





> 



z 
> 
z 



> 


S 


» 
















O 


3 


< 


O 


> 


3 


m 
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BURROUGHS STANDARD SOFTWARE ITEMS (Cort) 




NAME 


PURPOSE 


SOURCE 
LANGUAGE 


NAME OF 
SOURCE FILE 


NAME OF 
OBJECT FILE 


COMMENTS 


COBOL FILTER 


Translator 


COBOL 


SYMBOL/COBOLFILTER 


SYSTEM/COBOLFILTER 


:onverts B 5500 
COBOL programs to 
3 6/00 COBOL. 


COMPARE 


Utt 1 i ty 


ALGOL 


SYMBOL/COMPARE 


SYSTEM/COMPARE 


Performs a bit-by-bit 
comparison of one or 
more pal rs of f i les. 


DC 1000 


Assembler 


ALGOL 


SYMBOL/DCIOOOASSEMBLER 


SYSTEM/OCl OOOASSEMBLER 




DCALGOL 


Compi ler 


ALGOL 


SYMBOL/ALGOL 


SYSTEM/ ALGOL 


Contained in the same 
source f i ie as ALGOL 
but is compi led with 
different user options 
set. 






ALGOL 


SYMBOL/DCPPROGEN 


SYSTEM/DCPPROGEN 




DUMP ANALYZER 


Utility 


ALGOL 


SYMBOL/DUMPANALYZER 


SYSTEM/ DUMP ANALYZER 








ALGOL 


SYMBOL/ESPOL 


SYSTEM/ESPOL 




ESPOLINTRINSICS 


intrinsics 


ESPOL 


SYIIBOL/ESPOL INTRINSICS 


SYSTEM/IKTRINSICS 


Bound into Intrinsics File 


FORTRAN 


Comp i I e r 


ALGOL 


SYMBOL/FORTRAN 


SYSTEM/FORTRAN 




;UARDFILE 


Utility 


ALGOL 


SYMBOL/GUARDFILE 


SYSTEM/GUARDFILE 


Guardf lie generation. 


HARDCOPY 


Util ity 


DCALGOL 


SYMBOL/HARDCOPY 


SYSTEM/ HARDCOPY 


SPO hardcopy. 


lADMAPPER 


Uti 1 ity 


DCALGOL 


SYMBOL/ lADMAPPER 


SYSTEM/ lADMAPPER 


Happing of INSTALLATION- 
ALLOCATED DISK. 
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STANDARD SOFTWARE ITEMS (Cont) 




NAME 


PURPOSE 


SOURCE 
LANGUAGE 


NAME OF 
SOURCE FILE 


NAME OF 
OBJECT FILE 


COMMENTS 


INTRINSICS 


Intrins ics 






SYSTEM/INTRINSICS 


Bound from ALGOL 
INTRINSICS and 
ESPOL INTRINSICS. 


lOINTERACT 


Testing 


DCALGOL 


SYMBOL/IOINTERACT 


SYSTEH/IOINTERACT 




LIST DIRECTORY 


Utility 


ALGOL 


SYMBOL/LISTDI RECTORY 


SYSTEM/LISTDI RECTORY 




LOADER 


Util Ity 


ESPOL 


SYHBOL/LOADER 


SYSTEM/LOADER 


Card deck 


L0GANALV2ER 


Accounting 


ALGOL 


SYMBOL/LOGANALYZER 


SYSTEM/LOGANALYZER 




HAINTENANCE 


Maintenance 


ESPOL 


SYMBOL/MAINTENANCE 


SYSTEM/MAINTENANCE 


Bound to MCP 


KAKEUSER 




ALGOL 


SYMBOL/HA KEUSER 


SYSTEM/MAKEUSER 




MCP 




ESPOL 


SYMBOL/MCP 


SYSTEM/MCP 




MCSII 




DCALGOL 


SYMBOL/MCSli 


SYSTEN/MCSII 




NOL 




ALGOL 


SYMBOL/NDL 


SYSTEM/NOL 




PATCH MERGE 


Utility 


ALGOL 


SYMBOL/PATCH 


SYSTEM/PATCH 




PRINTCOPY 


Util ity 


ALGOL 


SYMBOL/PR INTCOPY 


SYSTEM/PRINTCOPY 


Prints HARDCOPY 
output. 


REMOTE JOB ENTRY 




DCALGOL 


SYMBOL/ RJE 


SYSTEM/RJE 




RLTABLEGEN 


Utility 


ALGOL 


SYMBOL/RLTABLEGEN 


SYSTEM/RLTABLEGEN 


Generates table 
for MCP recognition 
of nonstandard tape 
labels. 


SORT 


Sort 


ESPOL 


SYMBOL/SORT 


SYSTEM/SORT 


Bound to MCP 


SORTSTAT 


Accounting 


ALGOL 


SYMBOL/SORTSTAT 


SYSTEH/SORTSTAT 
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BURROUGHS STANDARD SOFTKARE ITEMS (Cont) 



SOURCE DC] 000 



Compi ler 



SOURCE 
LANGUAGE 



NAME OF 
SOURCE FILE 



SYMBOL/ SOURCEDCIOOO 



SYMBOL/ SOURCENDL 



SYMBOL/TAPEDIR 



SYMBOL/XALGOL 



NAME OF 
OBJECT FILE 



SYSTEM/TAPED I R 



SYSTEM/ XALGOL 



Prints 1 Ibrary tape 
directory on line 
printer or console. 
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MCP COMPILATION 

Compilc-Tim* Option> 

A number of versions of MCP code files may be generated via ESPOL com- 
pilations of tlie Harl< 1 I .« MCP symbolic file. The fom of the generated 
MCP is governed by the states of ten compile-time options; the combina- 
tion of option states chosen results in selective compilation of por- 
tions of the symbolic file. 

The ten MCP compile-time options are: 

ACTIVETIME 

DIAGNOSTICS 

lOTIMES 

LINEINFO 

MTBF 

OPTIMIZER 

PRESENCEBITCHARGED 

PROCESSORSWAPPING 

READLOCK 

REVERSEPAPERTAPE 

These options may be set or reset via ESPOL compiler control cards merged 
into the MCP symbolic file at any sequence number in the Interval 
OOOOOm to 000001.99. The following is an example of such a compiler 
control card: 

fSSET MERGE CHECK DIAGNOSTICS OPTIMIZER lOTlMES OOOOoiiiFI 

The default state of each of these options is RESET, except REVERSEPAPER- 
TAPE which has a default state of SET. All options are user options 
except READLOCK and LINEINFO which are standard ESPOL compiler options. 

The MCP compile-time options are discussed in the following paragraphs 
in the order just listed. The default state of each option is indicated 
in parentheses beside the option name. 

ACTIVETIME (RESET) 

When this option is set, the resultant MCP causes the total amount of 
time a stack is active to be entered in the system log at EOJ-time. If 
ACTIVETIME is reset, this Information Is not entered in the log. 

DIAGNOSTICS (RESET) 

When this option is set, checking and debugging code Is included in the 
generated MCP. This option is normally reset due to the amount of addi- 
tional code generated when the option Is set. 
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lOTIMES (RESET) 

When this option is set, tlie resultant HCP allows user programs to 
collect certain timing statistics via tile TIME intrinsic. When lOTIMES 
is reset, these times are not available to user programs. 

UNEINFO (RESET) 

When this option is set, the resultant MCP code file contains line 
number information which allows SYSTEH/DUMPANALYZER and PROGRAHDUMP to 
associate HCP symbolic line numbers with the RCU's in a stacl<. This 
option is normally reset since the size of the generated MCP code file 
is doubled when LINEINFO is set. (This option is a standard ESPOL com- 
piler option.) 

MTBF (RESET) 

(The name of this option is an acronym for Mean Time Between Failure.) 
When this option is set, the resultant MCP performs collection and dis- 
play of peripheral unit error statistics. The run-time system option 
"DIAGNOSTICS" is meaningful only for a system employing an MCP compiled 
with MTBF set. 

OPTIMIZER (RESET) 

When this option is set, the resultant MCP will contain code to handle 
the Disl( File Optimizer. Thus, this option should be reset when gen- 
erating an MCP code file intended for use at installations which do not 
have this hardware unit. 

PRESENCEBITCHARGED (RESET) 

When this option is set, the resultant MCP will cause the processor 
time required to handle a presence bit interrupt to be charged to the 
stack which was the cause of the interrupt. In the default case, this 
stack would not be charged with this processor time. The option is nor- 
mally reset since it causes the total processor time for a job to be 
highly mix-dependent. 

PROCESSORSWAPPING (RESET) 

When this option is set, code is omitted from the resultant MCP which 
causes internal job priority adjustment allowing jobs with identical 
declared priorities to compete for a processor with equal chances of 
obtaining it. This option is normally reset since this action can oc- 
casionally lead directly to a "thrashing" contention situation. 

REAOLOCK (RESET) 

When this option is set, the resultant MCP contains additional debugging 
code for READLOCK operations. (This option is a standard ESPOL compiler 
Opt ion. ) 
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REVERSEPAPERTAPE (SET) 

When this option Is set, the resultant «CP allows tape-parity-retry 
action on paper tape readers. This option must be reset when compiling 
an MCP which is intended for use at installations using the Facit paper 
tape reader which cannot be reversed. 
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B 6700 COMPATIBLE ALGOL FILTER 

The purpose of the B 6700 Compatible ALGOL Filter program i s to ai d i n 
the conversion of B 5500 Compatible ALGOL or B 6700 Coinpat, ble ALGOL 
(XALGOL) programs into a form acceptable as input to the B 6700 Extended 
ALGOL Compiler. The B 6700 Compatible ALGOL Filter accepts as input 
BCL-coded programs written in Compatible ALGOL and deletes, generates, 
consolidates, modifies, and flags constructs for programmer attention. 
Programs to be filtered should be error-free for useful results since 
syntactic errors may cause improper filtering. 

The B 6700 Compatible ALGOL Filter program is written ' " = J, ^7°° f" 
tended ALGOL. The TITLE of the program source file is SYNBOL/ALIjOL- 
FILTER, and the TITLE of the corresponding object file is SYSTEM/ 
ALGOLFILTER. 

Input FiUi 

This program has two input files: a required primary file (with the 
internal name CARD) and an optional secondary file (with the internal 
name TAPE). These files contain the Compatible ALGOL source program 
to be f i 1 tered. 

File CARD, a punched card file unless label-equated to another device 
by a FILE control card, is required regardless of whether or not the 
file contains card images to be processed by the filter. Data in 
file CARD must consist of BCL-coded 10-word records; the last record 
in this file must contain the sequence number 99999999 in columns 73 
through 80. 

File TAPE, a serial disk file unless label-equated to another device by 
a FILE control card, is optional and must contain BCL-coded 10-word 
records in 150-word blocks. 

Output Files 

Output files which may be created by the ALGOL Filter include a printer 
listing, a BCL-coded or an EBCDIC-coded disk file, and a BCL-coded or 
an EBCDIC-coded card punch file. 

The printer listing (a 17-word-record line printer file named LINE) 
contains (depending on the options set) unchanged card images, deleted 
card images, and generated card images, as well as sumnary information. 
The listing provides the following summary information (the summary 
information is revised to reflect the absence of files as well as their 
presence) : 
Card input was: (filename) Tape input was: (filename) 

BCLTAPE file created: ( ) EBCDIC NEVfTAPE fi le 

created: V ' 

BCL punch file was: ( ) EBCDIC punch fi le was: ( ) 
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) Tape input was: 


(fi 


)e name 


) Last error at: 






) No. cards edited: 






) No. cards generated: 






) No. errors detected: 







No. cards counted per 
minute: 



) Time processing: 



( 



Card input was: (fi 

BCL/EBCDIC output was: ( 

No. of cards read: ( 

No. of cards deleted: ( 

No. of cards flagged: ( 

No. of i terns scanned: ( 

Elapsed Time - ( 

File LINE is generated by the default setting (i.e., SET) of Filter 
option LIST. if option LIST has been reset and option EDIT has been 
set, then only those card images that have been edited or generated 
are listed on file LINE. If option LIST has been reset and option 
NEWONLY has been set, then the filtered output (edited, generated, or 
unchanged card images) will be listed. 

A serial disk file named NEVn'APE is created for output if option NEW 
Is set. NE\-n"APE contains EBCDIC-coded lA-word records In 420-word 
blocks, has a SAVEFACTOR of 10 days, and may be label -equated to 
another device via a F I LE control card. 

A serial disk file anmed BCLTAPE is generated for output If options NEW 

and BCLDECK are set. BCLTAPE contains BCL-coded lO-word records in 

150-word blocks, has a SAVEFACTOR of 10 days, and may be label-equated 
to another device. 

A card punch file named PUNCH is created for output if option PUNCH is 
set (and BCLDECK is reset). The file PUNCH contains EBCDIC-coded 14- 
word records and may be label equated to another device. 

A card punch file named PUNCHB is generated for output If options 
BCLDECK and PUNCH are set. PUNCHB contains BCL-coded 10-word records 
and may be label equated to another device. 

The filtered program may be directed to either a card punch file or 
to a disk file or to both files. 
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Purpose 


Kind 


File 
Name 


Code 


Record 
Size 


Block 
Size 


Comments 


Input 
Card File 


Card 
Reader 


CARD 


BCL 


10 words 


Blocked or 
Unblocked 


Primary input (required). 


Input 
Disk File 


Disk 
(serial) 


TAPE 


BCL 


10 words 


150 words 


Secondary input (optional). 
Selected when option TAPE is set. 


Output 
Disk File 


Disk 
(serial) 


NEUTAPE 


EBCDIC 


]k words 


'(20 words 


Optional output. Selected with 
option NEW. SAUEFACTOR - 10 days. 


Output 

Disk 

File 


Disk 
(serial) 


ECLTAPE 


BCL 


10 words 


150 words 


Optional output. Selected by op- 
tions NEW and BCLDECK. 5AVEFACT0R - 
10 days. 


Output 
Card Puncii 


Card 
Puncii 


PUNCH 


EBCDIC 


1^ words 




Optional. Selection by option 
PUNCH. 


File 














Output 
Card Punch 


Card 
Punch 


PUNCHB 


BCL 


10 words 




Optional. Selected by options PUNCH 
and BCLDECK. 


File 














Output 


Line 


LINE 


NA 


17 words 


NA 


Optional. Selected by option LIST. 


Lire 


Printer 












Printer 














Listing 
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BCLDECK (RESET) 

when set, the BCLDECK option causes the output card images produced by 
the Filter to be BCL-coded; otherwise an EBCDIC-coded file is produced. 

DOUBLE (SET) 

When set, the DOUBLE option allows the filtering of double statements. 
When reset, this option suppresses such filtering and causes such state- 
ments to be flagged. 

EDIT (RESET) 

When EDIT is set and LIST is reset, then only those card images which 
have been edited are listed on file LINE. 

FIXID (RESET) 

FIXID WITH<charact»r itringXRESET) 

Certain reserved words in B 6700 ALGOL are not reserved words in Compat- 
ible ALGOL and may have been used as identifiers in the program which is 
to be filtered. When set, FIXID causes these identifiers to be changed 
whenever they appear in the program by concatenating the <character 
string> onto the end of every identifier which is also a reserved word 
in B 6700 ALGOL. If no character string is specified, a "Q" will be 
used as a character string. 

LIST (SET) 

When LIST is set, all card images, old and new, whether unchanged, de- 
leted edited, or generated will be listed on file LINE. When LIST is 
reset, only images with flags for programmer review will be listed. 

MERGE (RESET) 

When set, MERGE causes source file (file TAPE) input to be merged with 
patch file {file CARD) input (if TAPE is also set). When MERGE is 
reset, only input from file CARD is accepted. 

NEW (RESET) 

When set, option NEW causes the filtered card images to be written on a 
new source file. This file will be file NEWTAPE if option BCLDECK is 
reset, otherwise file BCLDECK will be created. When NEW is reset, the 
new source file is not created. 

NEWONLY (RESET) 

When set (assuming LIST is reset), causes only the new card images to be 
listed on output file LINE. 
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PATCH (RESET) 

When PATCH is set and PUNCH is reset (assuming the source file requires 
little modification by the filter), a patch declt will be punched which 
can be merged with the disk file to create a new source file which is 
acceptable to the B 6700 compiler. 

PUNCH (RESET) 

When PUNCH is set, the filter program will create a new source file 
containing the filtered output on punched cards. This file (named 
PUNCH) contains EBCDIC-coded U-word records unless BCLDECK is also set. 
When PUNCH is set and BCLDECK Is also set, a new source file named 
PUHCHB will be created. File PUNCHB will contain BCL-coded 10-word 
records. 

REPLACE<d«fin*d id*ntifi«r>(SET) 

When the REPLACE option is set, the identifier following the word 
REPLACE will be replaced everywhere it occurs by the text with which 
that identifier is associated in a preceding DEFINE statement. (REPLACE 
should not be used with defines that have parameters.) In the example 
the identifier "K" will be replaced by "HAKE" everywhere in the program. 

DEFINE K = MAKE H; 



$ SET NEW 



S REPLACE K 

REVERSE (SET) 

When set, REVERSE causes read reverse statements to be filtered 
correctly but inefficiently. For example, if (REVERSE is set, the read 
statement READ REVERSE (FID,2,A[*]) becomes: 

BEGIN 

FID.DIRECTI0N:=1; 

READ (FtD,2,A[A]); 

FID.DIRECTI0N:=O 
END 

When REVERSE is reset, the word REVERSE is deleted from the read 
statement and a message is printed telling the programmer that the 
direction of the "read" should be fixed manually. 

SEO <starting numb«r>-f<incr«m«nt port> (RESET) 

When set, the filter resequences filtered output in accordance with the 
parameter values of the <5tarting number> and +<:increment part>. The 
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value of the starting number is assigned to the first filtered card 
image before the card image is output; then for the next card image the 
value of the starting number is increased by the increment part. An 
example of this option is: $ SET SEQ 1000 +200. 

SIX (RESET) 

When set, the SIX option sets in the same manner as the BCL option. 

SORT (SET) 

The SORT option alters the filtering of SORT and MERGE statements. 
Hivalue procedures are disallowed in B 6700 ALGOL SORT and MERGE 
statements. If SORT is set, the filter will generate a call on the 
hivalue procedure prior to and outside of the SORT or MERGE statements. 

TAPE (RESET) 

Setting the option TAPE causes file TAPE to be considered as a source 
of input. When TAPE is reset, input is accepted from file CARD only. 

UNDEFINE (SET) 

The UNDEFINE option allows the user to control the def ine-expanston 
facilities of the filter program. It may be necessary to filter double 
statements, sort statements, merge statements, and read reverse 
statements. In order to filter an invocation of a DEFINE the UNDEFINE 
option must appear as the last option after the DEFINE and before the 
correspond i ng invocation. 

For example , 

DEFINE RR = READ REVERSE (F ID ,2 ,A[*])# ; 



$ UNDEFINE 
RR; 

VOID TO SEOUENCE<t«qu«nc« numb«r><l«t void numb«r> 

VOID TO SEQUENCE causes all input records except $ cards (from TAPE and 
card) with sequence numbers between <sequence number> and <Iast void 
number>, inclusively, to be deleted during filtering. {The <sequence 
number> must appear in columns 73-80; the <last void number^ may 
appear as not more than eight consecutive digits in columns 6-72.) 

VOID (RESET) 

When VOID is set, all input records, except those with a S sign in colum 
1 are ignored until VOID is reset or popped into a reset state. 
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VOIDT (RESET) 

When option VOIDT is set, all input records from file TAPE are ignored 
(except those with a S sign in column 1) until VOIDT is reset or popped 
i nto a reset state. 

WARN (SET) 

If WARN is reset, warning messages will become filtering errors. 

PARAMETERS 

Parameters are used in conjunction with options on filter control cards 
to speci fy 1 imi ts . 

PAGE 

When PAGE is specified on an option card, the tine printer skips to a 
new page before printing the listing. 

<i»arting numb«r> + <incr«fn*nt part> 

The parameters are used to specify the starting sequence number and the 
increment part when option SEQ is set. These numbers are entered as six- 
digit numbers in columns 2 to 72 on any option card. The increment part 
is preceded by a "+" sign. If these numbers are not specified, they are 
zero by default. Resequencing is accomplished when option SEQ is set. 
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(a) Causes the B 6700 Compatible ALGOL Filter program to be run. 

(b) Compatible ALGOL code for ROMAM/SOURCE is contained in disk 
file TAPE. 

© Neu filtered (B 6700/ALG) code for program ROMAN/NUHRL is saved 
in disk source file NEUTAPE. 

(D) BCL-coded cards in file CARD follow this card. 

(|) Patch deck is to be merged (MERGE) with program source deck 
ROMAN/SOURCE to produce ROMAN/NUMRL. 

© Patches to file ROHAN/SOURCE. 

© Causes card images from TAPE to be ignored beginning with sequence 
number 00005000. 

® Last card to be voided is 00005819. 

© Last card in deck. 

© End of filtering. 
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(K) Causes the B 6700 Compatible ALGOL Filter program to be executed. 

(b) Indicates that BCL-coded cards follow in input file CARD. 

(c) Causes an output disk file named 6CLTAP (NEW option) containing 
BCL-coded 10-word record (BCLDECK option) to be generated. 
Resequences filtered output (SEQ 100 +100 option) concatenates a 
"Q" onto the end of identifiers which are reserved words in B 6700 
ALGOL (FIXID option); 

(o) Source program cards to be filtered. 

(e) Denotes an end of the filter deck. 

Error M«tiag«t 

The filter program is designed to detect possible sources of trouble in 
the filtering process, whether these be due to major differences between 
Compatible ALGOL and B 6700 ALGOL, to syntax errors in the input, or to 
problems that the filter program itself is not able to handle correctly. 
Such trouble spots are flagged on the line printer output listing and 
explanatory text is included to describe a possible error. In some cases 
no error actually exists. However, because possible errors are flagged, 
the programmer must inspect his program to be sure that the filtering 
is correct. 
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The filter program deletes (DEL) some card images, generates (GEN) new 
card images, and edits (EOT) card images. Shown below are examples of 
filtering arranged as they would appear on an output listing. 

<001» ... CHECK FILE DECLARATION. 

* I^ILE LINE 18(2,15); * DEL 



>»» FILE LINE (KIND =103, BUFFERS -2, MAXRECSIZE -15) ; 00005000 GEN 

Certain card images are edited to reflect B 6700 ALGOL constructs, e.g., 

CHANGETOG* FALSE; becomes 

CHANGETOG;-FALSE; EOT 
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B 6700 COBOL FILTER 

The B 6700 COBOL Filter is a program used in converting B 200, B 300, 
B 3500, B 5000 and B 5500 COBOL source programs (coded in fiCL or 
EBCDIC) to a form acceptable to the B 67OO COBOL Compiler. Language 
constructs to which the filter cannot adjust, i.e., a form acceptable 
to the compiler, are flagged for programmer review and modification. 

The name of the source file for the B 6700 COBOL Filter is SYMBOL/ 
COBOLFILTER; the name of the object file is SYSTEM/COBOLFI ITER. The 
B 6700 COBOL Filter will accept programs in symbolic form from the 
following types of input media (see table I). 

Punched Cards 

- B 5500 COBOL Compiler "SOLT" blocked magnetic tape 
(wi th patch deck) 

BCL alpha unblocked magnetic tape (with patch deck) 

Disk (blocked at 15 records per block) 



INTERNAL NAME 


EXTERNAL NAHE 


CARD INPUT 


"COBOL" 


TAPE INPUT 


"SOLT" 


TAPE-UN-INPUT 


"SOLT" 


DISKINPUT 


"SOLT" 



Note that the filter requires a syntactically correct program as input, 
i.e., a B 5500 COBOL program with B 5500 syntax errors may be 
mis interpreted. 

A new source language output is provided after filtering has been done 
and programmer adjustments, if any, have been made. The new output 
may be resequenced in increments from 1 to 9999 and directed to one of 
the following types of output media (see table t). 

- Punch card deck 

Magnetic tape (blocked at 15 records per block) 

- Disk file (blocked at 15 records per block) 

INTERNAL NAME EXTERNAL NAME 

PRINT "FILTER" 

TAPEOUTPUT "COBOL"/" IMAGE" 

PUNCHOUTPUT UNLABELED 

DISKOUTPUT "COBOL"/" IMAGE" 

PRINTED IN U.S. AMERICA 5000722 



Table 1. B 6700 COBOL Filter Files 



Purpose 


Kind 


Internal 
File Name 


Default 
File Title 


Code 


Record 
Size 


Block 
Size 


Comments 


Input Card 
File 


CARD 
READER 


CAROINPUT 


COBOL 


BCL 
EBCDIC 


10 words 
U words 


Unblocked 


Primary input of filter 
control cards and patches 
Selected by input option 
CARD (if input media is 
not specified, CARD is 
assumed) . 


Input Disk 
File 


DISK 
SERIAL 


DISKINPUT 


SOLT 


BCL 


10 words 


Blocked 
150 words 


Secondary input. Se- 
lected by input option 
DISK. 


Input 
Magnetic 
Tape File 
(blocked) 


MAGNETIC 
TAPE 


TAPE INPUT 


SOLT 


BCL 


56 words 


Blocked 
I)li8 words 


Secondary input. Se- 
lected by input option 
TAPE. A tape labeled 
SOLT is expected. 


Input 
Magnetic 
Tape File 
(unblocked) 


MAGNETIC 
TAPE 


TAPE-UN- INPUT 


SOLT 


BCL 
Alpha 


10 words 


Unblocked 


Secondary input. Se- 
lected by input option 
TAPE. A tape labeled 
SOLT is expected. 


Library 
Disk File 
for Input 


DISK 
RANDOM 


CASTA 


CASTA/ 
L 1 BRARY 


BCL 


60 words 


1)88 words 


Random access. Se- 
lected by input option 
CASTA DISK. 


Library 
Tape File 


MAGNETIC 
TAPE 


CASTATAPE 


CASTA/ 
LIBRARY 


BCL 


56 words 


llllS words 


Selected by input op- 
tion CASTA TAPE. 


for Input 

















B 6700 COBOL Filter Files (Cont) 



o 

m 
O 







Internal 


Default 




Record 


Block 




Purpose 


Kind 


File Name 


File Title 


Code 


Size 


Size 


Comments 


Output 


DISK 


DISKOUTPUT 


COBOL/ 


BCL 


10 words 


150 words 


Filtered source code 


Disk File 


SERIAL 




IMAGE 








output. Sequential ac- 
cess. SAVEFACTOR = 90 
days. Selected by out- 
put option DISKOUT. 


Output 


LINE 


PRINT 


FILTER 


BCL 


15 words 


Unblocked 


Option LISTALL gives all 


Listing 


PRINTER 












images. Option SPEC 
gives images requiring 

programmer review. De- 
fault gives source images 
wi th errors and new 

images. 


Output 


MAGNETIC 


TAPEOUTPUT 


COBOL/ 


BCL 


15 words 


225 words 


Filtered source code 


Magnetic 


TAPE 




IMAGE 








output. Selected by 


Tape File 














output option COBSYH. 
SAVEFACTOR = 90 days 


Output 


CARD 


PUNCHOUTPUT 


PUNCH 


BCL 


10 words 


10 words 


Provides a new source 


Punch 


PUNCH 












deck containing f i 1- 


Deck 














tered images. Se- 
lected by output option 
PUNCH. Default setting 
i f no output options 
selected. 
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Warning messages and indicative numbers that are generally sufficient 
to determine the action taken or the action necessary to be taken 
manually are provided. Warning messages of a specific nature are 
printed In iine; those of a general type are, on the other hand, 
printed to the right of the new generated output. Table 2 lists the 
disposition of B 5500 COBOL constructs after filtering has been ac- 
complished. Those constructs requiring manual change are identified 
by the phrase "flag for manual change". 

Table 2. Disposition of B 5500 COBOL Constructs 



Punctuation 
% 



Connective OR 
Connective AND 



Figurative Constants 

END 

Mew Reserved Words 

Used as Data-Names 

B 5500 reserved word 
abbrevi ations 

IDENTIFICATION DIVISION 

All Entries 

ENVIRONMENT DIVISION 

CONFIGURATION SECTION 
SOURCE-COMPUTER 
<computer-name> 
COPY 

OBJECT-COMPUTER 

<computer-name> 

COPY 



Delete where not acceptable. 

Delete. 

Delete. 

Delete. 

Delete. If any comment follows, 
create an "*" comment card. 

Flag for manual change. 

Add trai 1 i ng Q. 

Change to COBOL-65 abbreviation 
or reserved word. 



Treated as remarks. 



Change to B-6700. 

Include images from CASTA library. 

Change to B-6700. 

Include images from CASTA library. 
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Table 2. Disposition of 

Element 

DISK SIZE Clause 

SPECIAL-NAMES 

<hardware-mnemon ic-nanie> 



5500 COBOL Constructs (Cont) 

Action 

Change HOD or MODS to modules. 



Delete but remember for 
substitution in WRITE (to 
cinannel number) . 

Include images from CASTA library. 



INPUT-OUTPUT SECTION 
FILE-CONTROL 



SELECT <file-name-l> 
renaming <f i le-name-2> 



ASSIGN TO <hardware-name- 
series> 

ACCESS MODE 

ACTUAL KEY 

FILE LIMITS 

l-0-CONTROL 

COPY 

MULTIPLE FILE TAPE CONTAINS 
VALUE OF MFID 



DATA DIVISION 



FILE SECTION 

File Description Entries 



FD FILE-NAME 



COPY 

FILE CONTAINS 



Include images from CASTA library. 

Remember <f i le-name-1 > and copy 
description of <f i le-name-2> 
in DATA DIVISION. 

Change names to 8 67OO names, 
flag datacom file for manual 
change. 

Copy from MD in FILE SECTION. 

Copy from MD in FILE SECTION. 

Copy from MD in FILE SECTION. 



Include images from CASTA library. 

Treated as comments. 
Delete and substitute 

as leftmost <file-ID> in FILE 

SECTION. 



If subject of ENVIRONMENT 
DIVISION renaming, add description 
following complete FD entries. 

Include images from CASTA library. 

Delete and multiply disk areas by 
records per area and enter pro- 
duct in number of units specifica- 
tion in SELECT statement. 
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Table 2. Disposition of B 
Element 
DATA DIVISION 

File Description Entries (Cent) 

Record Description Entries 
CLASS IS 



5500 COBOL Constructs (Cont) 
Action 



COPY <data-name> 
from library 

Editing Clauses 

Zero Suppress (ZS) 
Check Protect (CP) 
Float Dollar Sign (FS) 
FILLER 



JUSTIFIED (JS) LEFT 
PICTURE (PC) IS 

Poi nt Locat ion 

SIGN IS <data-name> 

SIGNED or SN 

SIZE IS <integer-2> 
(Fixed) 

USAGE IS COMPUTATIONAL 
(CMP) 

Others 

MD Entries 



Delete, use for PICTURE except whe 
used with variable size item. 

Text copied. 

Include images from CASTA library. 



Delete, use for PICTURE. 
Delete, use for PICTURE. 
Delete, use for PICTURE. 

If group item at 01 level, 
add trailing A-P, R-2 , 1-9 
depending on the number of 
occurrences. 

If group item at other than 
01 level, add trailing (J. 

Flag for manual change. 

Verify editing symbols and, 

if not present, insert- 
Delete, use for PICTURE. 
Flag for manual change. 
Delete and use "S" for PICTURE. 

Delete, use for PICTURE. 



Flag for verification, add 
SYNCHRONIZED RIGHT clause. 



Change to FD, flag for 

verification and add information 
to FILE-CONTROL SECTION. 
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Table 2. Disposition of 

Element 

Symbol i c key 

File names shown in 
SELECT... RENAMING 
Statements in ENVIRON- 
MENT DIVISION 

Same 

ASSIGN TO MEMORY 

REDEFfNES 

success! ve redef i ning 

PROCEDURE DIVISION 
Conditional Statement 

UNEQUAL TO W 

EQUALS 

EXCEEDS 



ACCEPT FROM <option> 
ASSIGN 

INCLUDE 

MOVE 
<f i le-name> (Oatacom) 

PERFORM WITH 



! 5500 COBOL Constructs (Cont) 

Action 



Delete. 

Add to end of FILE SECTION. 



Flag for manual change. 
Flag for manual change. 



Change from chaining method to 
successive redefining of the 
original entry. 



Change 


to 


'NOT 


Change 


to 


'=". 


Change 


to 


■>■'. 


Change 


to 


'NOT 


Change 


to 


'NOT 



Flag for manual change. 
Flag for manual change- 
Include images from CASTA library. 

Flag for manual change. 

Convert to CALL SYSTEM WITH <data-name>. 



PERFORM PROGRAM-ID 



READ 

Impl icit AT END option 



Convert to "RUN <program-name>" 

Flag for manual change. 
Flag for manual change. 
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Table 2. Disposition of B 5500 COBOL Constructs (Cont) 
nt Act ion 



WRITE 

<mnemon I c-name> 
for channel 

ON option 

Data com 



Flag for manual change. 

Change to channel number. 

Flag for manual change. 
Flag for manual change. 



FilUr Control Card and BCL Switch Cord 

Following the "<l> EXECUTE COBOL/FILTER" and "<l> DATA COBOL" cards and 
preceding the program cards and "< I > END" card, a "$" control card may 
be present. The information on the control card is in a free-field 
format. !f no "$" card is present, "$ CARD PUNCH" is assumed. The 
control card syntax and semantics are as follows: 

Syntax: 

<control card> : := S <input part> <output part> <list part> 

<seq part> <new- I D part> <casta part> ^internal mode part> 
<input part> : := <empty> / CARD / TAPE / DISK 
<output part> ::= <empty> / PUNCH / COBSYH/ DISKOUT/ DEBUN 
<list part> ::= <empty> / LISTALL / SPEC 
<seq part> ::= <empty> / NOSEQ / SEQ <integer> 
<new-ID part> : := <empty> / NEWID <character string> 
<casta part> ::= <empty> / CASTA TAPE / CASTA DISK 
<internal mode part> ; := <empty> / BCL 
Semant i cs : 
The 5 character must be in column 1. 
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<input part> 

The CARD/TAPE/DISK choice designates the input media. When the tape 
option is specified, a tape labeled "SOLT" is expected. Patch cards 
are allowed following the dollar sign controJ card. The "SOLT" tape 
can be either unblocked or blocked with five images per block (normal 
output from a B 5500 COBOL compilation). If this part is enpty, 
"CARD" is assumed. When disk is specified, the disk file must be 
blocked 15 records per block, 

<output part> 

The PUNCH/COBSYM/DISKOUT choice designates the output media for the 
filtered images. "COBSYM" designates an output tape labeled "COBOL/ 
IMAGE" which consists of blocked images (15 records/block) recorded in 
standard mode. If this part is <empty> , "PUNCH" is assumed. 

DISKOUT creates a disk file, internal BCL blocked 15 records per 
block. "DEBUN" may be specified if no symbolic output is desired. 

<1 ist part> 

The listing part specifies the following: 

If <empty>, source images containing errors and all new 
images are 1 i sted. 

If "LtSTALL", all source and new images are listed. 

If "SPEC", only the images that require programmer inspection 
are listed. 

<seq part> 

The sequencing option designates the following: 

If <empty>, output images are sequenced by 100. 

If "NOSEQ", output images retain the Input sequence number 
except when statement consolidation occurs; in this case the 
last number Is used. 

If "SEQ <integer>", output images are sequenced according to 
the given integer. <integer> may be one through four digits. 

Resequencing of the output file is recommended. If "NOSEQ" is 
specified, it is very likely to produce duplicate sequence numbers and/ 
or numbers out of sequence due to the rearrangement and overflow of 
i nput i mages . 
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<new-ID part> 

The new- I D part designates the following: 

If <empty>, the output messages will retain the original ID 
(COL 73-80). 

If "NEWID <character string>", the 10 of output images will be 
replaced by <character strings. The character string may be 
one to eight characters long. 

<casta part> 

The casta part designates the following: 

if <empty> or "CASTA DISK", library references will be copied 
f rom disk. 

If "CASTA TAPE", library references will be copied from tape. 

<internal mode part> 

The internal mode part designates the following: 

If <empty> all "DISPLAY" data descriptions will be left 
unchanged. 

If "BCL", all "DISPLAY" data descriptions will be described 
as six-bit BCL strings (USAGE is DISPLAY-l). 

BCL switch cards may be included in the patch deck to set or reset 
the BCL internal mode option. The format of these cards is as 
f o 1 I ows : 

<seq NR> $ SET BCL/RESET BCL 
Where the S is In column 7. 

Error and Advisory M«tsag«s 

For diagnostic purposes, the output listing may include error and 
advisory messages, output image code, including sequence numbers, 
and a concatenated "Q". (See table 3.) 

At the end of the listing, the Filter program gives the total count of 
flagged images for each diagnostic code number, the total number of 
output images flagged, and the total number of input images scanned. 

The filter program codes each Input image Into one of six filter diag- 
nostic categories. On the line with the filtered image on the output 
listing, the numeric portion of the diagnostic code is printed in the 
left margin and the category title is printed in the right margin. The 
diagnostic categories are listed below with explanations and examples. 
In various categories the Filter concatenates a "Q" to the end of 
questionable constructs to aid the programmers. 

XXXXX(no title). 
PRINTED IN U.S. AMERICA 5000722 



Table 3- Message Formats 



Advisory Message for Manual Change 



Di agnost i c 
Code 



Old Seq. No. 
New Seq. No. 



Count of 

Flagged Images 

(by Code) 



XXXXX 
IXXXX 
INCOMPLETE SPECIFICATION 



003900 WORKING-STORAGE SECTION 



X2XXX 

XX3XX 
XXXllX 



2010 77 LINE-CNT PIC 99 VALUE 50 COMP-1 
001)000 77 LINE-CNT P I CQ99 VALUE 50 COHP-IQ XXX0007XXX 



080 SOURCE-COMPUTER. B-5500. 
001200 SOURCE-COMPUTER. B-6500. 



5620 WRITE HEADINGS AFTER ADVANCING I LINE. 
008800 WRITE HEADINGS AFTER ADVANCING 1 LINEQ. 



Program 
ID 



CBL67 



Di agnost ic 
Messages 



(empty) 

FILTER RELOCATED 



CB56 
CB67 


NEED MANUAL C 


CB55 
CB67 


FILTER 




FILTER CHANGE 


CB59 
CB67 


VERIFY ENTRY/ 
CHANGE 
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Each source code Image filtered by the filter program is flagged with 
five X's in the left margin of the printer listing. If no changes are 
made by the filter except for a new sequence number and/or a new ID 
in columns 73-80, then only X's will appear in the left margin to 
show that the image has been filtered. 

Example: 

2000 WORKING-STORAGE SECTION. CB0L5500 
XXXXX 003900 WORKING-STORAGE SECTION. CB0L6700 

The messages are as follows: 

IXXXX FILTER RELOCATED 

The input image has been relocated due to copying or disk file 
specification. 

X2XXX NEEDS MANUAL CHANGE 

A portion of the input image is not acceptable to the B 6700 COBOL 
compiler, and the filter program is unable to accomplish a suitable 
correction. A programmer must review and modify this image. An 
advisory message is provided on a separate line just above the old 
image to assist the programmer in making the manual change. (A list 
of these advisory messages follow these paragraphs.) 

2010 77 LINE-CNT PIC 99 VALUE 50 COHP-1 . 
X2XX5*— -"00^000 77 LINE-CNT PICQ 99 VALUE 50 COMP-IO. aaao007*** 



XX3XX FILTER 



NEED MANUAL 
CHANGE 



A portion of the input image contained a construct that is not accept- 
able to the B 6700 COBOL compiler, but the meaning Is clear and the 
filter program has made an adjustment to the contents so that the 
output image is acceptable. Examples : 

080 SOURCE-COMPUTER. B-55OO. 
XX3XX 001200 SOURCE-COMPUTER. B-65OO. FILTER 

162 02 FILLER SZ k. 
XX3XX 002800 02 FILTER PICTURE Xik) . FILTER 

XXX^lX FILTER CHANGE 

A more extensive change to the contents of the input source image has 
been made. Usually, this code indicates that the entire source image 
has been replaced by a blank image. 
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XXXX5 VERIFY ENTRY/CHANGE 

The entry itself requires verification for B 67OO use or the filter 
program has changed the source image in an established and usually 
acceptable manner. However, the programmer should verify that the 
modi fi cat ion is acceptable. 

For example : 

5620 WRITE HEADINGS AFTER ADVANCING 1 LINE. 
XXXX5 008800 WRITE HEADINGS AFTER ADVANCING 1 LINEQ. :VAV:i:VAAV:AA\/ER|FY 

ENTRY/CHANGE 

ADVISORY MESSAGES FOR MANUAL CHANGES 

The filter program generates various advisory messages to aid the 
programmer in making manual changes. The message appears on the 
output listing beginning at column I on a separate line preceding the 
item to be changed. Listed below in alphabetical order are these 
messages with comments on each. 

ATTEMPTING TO COPY ITSELF 

This message indicates that while performing a copy, the program en- 
countered the image that initiated the "copy." The program continues. 

CHANNEL ERROR 

This message indicates that the special names association specifies 
a line printer channel greater than II. The program continues. 

COPY OF COPY LIMIT EXCEEDED 

This message indicates that copies were nested over 20 deep. The 
program cont i nues . 

COPY TABLE EXCEEDED 

This message indicates that more than I98 copy identifiers have been 
encountered. The program continues. 

END OF JOB ERROR 

This message indicates that the last image of the source input did 
not match ENO-OF-JOB. The program continues. 

INCOMPLETE SPECIFICATION 

This message indicates that the preceding source image did not contain 
sufficient Information for an elementary item. The program continues. 

INPUT READ ERROR 

This message indicates that an irrecoverable read error occurred. Pro- 
cessing continues, 
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INVALID KEY or AT END 



The INVALID KEY or AT END clause was executed during a "read" from 
library. The program continues. 

OBJECT OF CASTA COPY NOT FOUND 

This message indicates that the identifier for a library copy was not 
found in the library directory. The program continues. 

OBJECT OF COPY NOT FOUND 

This message indicates that the information to be copied was not 
found. The program continues. 

OBJECT OF RENAMING NOT FOUND 

This message indicates that the file to be renamed was not found. 
The program continues. 

OUT OF WORK DISK 

This message indicates that the work disk file limit was exceeded. 
The program terminates. 

PICTURE STRING EXCEEDS 30 CHARACTERS 

This message indicates that the picture string shown in the source 
image contains more than 30 characters. The program continues. 

SELECT RENAMING LIMIT EXCEEDED 

This message indicates that too many files have been selected with 

the renaming option. The additional file-names are not entered into 

the table, and their descriptions are not added to the filtered 
program. The filter program continues. 

Sample Program D*cks 

(card input - no filter control cards) 



f <I>BCL 




<I>EXECUTE SYSTEM/COBOLFILTER 
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(a) The B 6700 COBOL Filter program will be executed to filter B 5500 
COBOL Program ROHAN/NUMRL. 

(b) The program deck being filtered Is coded in BCL. 

(7) The following cards comprise B 5500 COBOL program ROMAN/NUMRL 
which is to be filtered. 



(?) End of filtering. 



Note: In the absence of filter control cards, input is assumed 
to be via cards in a file named CARD and the filtered 
output will be to a card punch file named PUNCHOUTPUT 
since filter control card PUNCH is assumed. 



(card input) 




jB 55OQ COBOL program ROMAN/NUHRL to be filtered (p) !)! 
r$ CARD DEBUN LISTALL SEQ 10 NEUID R/N67-OI ©1 



® 



<I>EXECUTE SVSTEM/COBOLFILTER 



® 



(a) The B 6700 COBOL Filter Program will be executed. 

(b) Indicates that the following cards are encoded in BCL. 

(T) Filter control card options indicate: input by card file (CARD); 
there will be no output symbolic source language file (DEBUN); the 
output print file will list all source images and new images 
(LISTALL); the output images will be assigned new sequence numbers 
starting with 10 and incremented by 10 (SEQ 10); each filtered 
output image will be identified in columns 73-80 by R/N67-OI 
(NEWID R/N67-OI). 

(T) The following cards comprise the B 5500 COBOL program ROMAN/NUHRL 
which is to be f i 1 tered. 

(T) End of f i I tering. 
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INTERPROGRAM COMMUNICATION 

G«n«ral 

Interprogram communication means communication between two or more 
tasks. A task is any procedure, program, or process which has its own 
stack. Because a task has a separate stack, one or more tasks may run 
in parallel with the program (another task) which initiated them. 
Tasks may communicate with each other even if they are written in 
different languages or even if they are compiled at different times. 
Communication between tasks is made possible in three ways: by use 
of task attributes, which allow characteristics of tasks to be refer- 
enced; by the use of events and interrupts, which allow happenings in 
one task to affect the execution of other tasks; and by the use of 
locks and readlocks, which prevent conmon resources (such as an array) 
from being used by more than one task at a time. 

At the present time, task initiation is allowed by B 6700 Extended 
ALGOL and B 67OO COBOL. 

Tatkt 

There are three types of tasks: coroutines, processes, and independent 
processes . 

a. Coroutines are synchronous, dependent tasks; that is, 
control is passed back and forth between the coroutine 
and the initiating task (synchronous operation) , but 
the coroutine must terminate before the initiating 
task may terminate (dependent operation). 

b. Processes are asynchronous , dependent tasks ; that is, 
the process and the initiating task run in parallel 
(asynchronous operation), but the process must 
terminate before the initiating task may terminate 
(dependent operation). 

c. Independent processes are asynchronous, independent 
tasks : that is, the i ndependent process runs in 
parai lel wi th the i ni tiat ing task (asynchronous 
operation) ; however , the independent process may 
terminate either before or after the initiating 
task terminates (independent operation) . 

A task can be initiated with a CALL, PROCESS, or RUN statement {in COBOL, 
the EXECUTE verb is synonomous with RUN). A task can be terminated in 
one of three ways : 

a. By exiting from its outer block. 

b. By terminating abnormally (e.g., divide by zero, operator 
DSed). 

c. By another task setting the value of the STATUS task attribute 
for the present task to minus one. 
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COROUTINES 

A coroutine Is a synchronous, dependent task, which acts as an inter- 
active task to another task. Coroutines show a primary-seconrfary 
relationship; the task which initiates a coroutine may be thought of 
as a primary task, the initiated coroutine may be thought of as a 
secondary task. Secondary coroutines may in turn initiate their own 
coroutines, so that a particular coroutine may at once be secondary 
to the coroutine which initiated it and primary to the coroutine which 
it initiated. 

A coroutine is declared as an untyped procedure (ALGOL), and parameters 
may be passed either by name or by value. A coroutine is initiated by 
3 CALL statement in the initiating task. The <task part> (ALGOL), or 
<control-point identifier> (COBOL) in the CALL statement, causes a 
unique identifier to be associated with the coroutine, so that the task 
attributes of the coroutine may be referenced with the aid of this 
identifier. 

Programmatic control can be passed back and forth between an initiating 
task and its coroutine, by means of CONTINUE statements in ALGOL or 
CONTINUE (for primary tasks) and EXIT PROGRAM (RETURN HERE) statements 
(for secondary tasks) in COBOL. 

The innermost block in which the coroutine, task identifier, or any 
call by name parameter is declared is known as the critical block: 
the coroutine must be terminated before this critical block is exited; 
otherwise, an error condition will exist and the entire job will be 
terminated. 

PROCESSES 

A process is an asynchronous, dependent task, which runs in parallel with 
the initiating task. Processes may in turn initiate other processes, 
all of which will run in parallel with the Initiating task. A process 
is declared as an untyped procedure (ALGOL), and parameters may be 
passed either by name or by value. The process is initiated by a 
PROCESS statement in the initiating task. The <task part> (ALGOL) or 
<control-point identifier> (COBOL) in the PROCESS statement causes a 
unique identifier to be associated with the process, so that the task 
attributes of the process may be referenced with the aid of this 
identifier. The innermost block in which the process, task identifier, 
or any call-by-name parameter is declared is known as the critical 
block. The process must be terminated before its corresponding 
critical block is exited; otherwise, an error condition will exist 
and the entire job will be terminated. 

INDEPENDENT PROCESSES 

An independent process is an asynchronous, independent task, which runs 
independently of the initiating task. An independent process may or 
may not terminate before its critical block is exited. it may be 
written in a different source language than the initiating task. An 
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independent process must be compiled separately, and must not reference 
variables declared globally in the initiating task. All parameters for 
the process must be cal 1 -by-val ue. Within the initiating task, the in- 
dependent procedure must be declared as an external procedure. 

An independent process is initiated by a RUN statement (for ALGOL only) 
or an EXECUTE or RUN statement (for COBOL only) in the initiating task. 
The <task part> (ALGOL) or <control -point identifier> (COBOL) in the RUN 
statement causes a unique identifier to be associated with the indepen- 
dent process, so that its task attributes may be referenced with the aid 
of this r denti f ier . 

SEPARATELY COMPILED PROGRAMS 

Programs which are to be run as independent processes must be compiled 
separately and at lexicographical level 2, since there is no critical 
block requirement for independent processes and coroutines may be com- 
piled separately or with the initiating program. If compiled separately, 
it must be compiled at lexicographical level 2 or compiled at a level 
higher than 2 and bound before being called or processed. 

Initiation in ALGOL 

An ALGOL program may initiate a procedure as a task in the following 



If the task is to be run as an independent process, it must not 
reference global variables in the initiating program, i.e., 
separately compiled at lexicographical level 2. In addition, 
all parameters for the task must be cal 1 -by-value parameters. 

Within the initiating program, a separately compiled program 
must be declared as an external procedure. 

A task identifier must be declared In the initiating program. 

The task attribute NAME for the declared task identifier 
must be assigned the actual title of the code file for the 
separately compiled program. The title to be assigned must 
be in the form of a string which is enclosed in quotes and is 
terminated with a period. 

The procedure Is invoked as a task with the appropriate 
CALL, PROCESS, or RUN statement and the declared task 
identifier is associated with the task. 



PRINTED IN U.S. AMERICA 



i-Sk B 6700 / B 7700 SYSTEM SOFTWARE HANDBOOK 



IPC 



Initiation in COBOL 

A COBOL program may initiate externally declared procedures as a task 
in the following manner: 

a. The task must be separately compiled. 

b. Within the initiating program, the section name to be 
executed as an external procedure must be defined In the 
DECLARATIVES portion of the PROCEDURE DIVISION. 

c. The title of the code file must be associated with the section 
name in the DECLARATIVES either by a mnemonic-name in the 
SPECIAL-NAMES paragraph or by moving the title into the task 
prior to task initiation. In either case, the title must be a 
string which is enclosed in quotes and terminated with a period. 

TASK ATTRIBUTES 

Task attributes allow certain characteristics of tasks to be refer- 
enced; thus allowing one task to monitor and control the execution 
of another task. The value of an attribute can be used to determine 
the current state of a particular task, and setting this value will, 
in some cases, change the execution of the associated task. Values 
and meanings of the task attributes are listed later in this section. 

ALGOL ImpUmcntotion 

In order to use task attributes in ALGOL it is necessary to declare a 
task identifier, and to associate this identifier with a task when the 
task is invoked. Once this association is made, any attribute of the 
associated task can be referenced by the construct: <task identifier>. 
<task attribute>. The reserved word MYSELF is a compiler-supplied task 
identifier which is associated with any process which uses it. Thus, 
any attribute of a particular task may be referenced within that task 
as: MYSELF. <task attribute>. 

COBOL ImpUmvntotion 

In order to use task attributes in COBOL it is necessary to declare a 
control-point identifier in the WORKING-STORAGE section with a USAGE IS 
CONTROL-POINT (CP) clause. The control -point identifier may be asso- 
ciated with a task in three ways: 

a. Between a mnemonic name for a procedure and its code file 
title in the SPECIAL-NAMES paragraph, 

b. Between a mnemonic name and a section name in the DECLARATIVES 
portion of the PROCEDURE DIVISION, using a USE statement. 

c. Between the section name and the control -poi nt identifier 
in the statement which initiates the task. 
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Once this association is made, any attribute of the associated tasl> 
can be referenced by the construct: <control -point identifier> 
{<tasl< attribute>) . 

The reserved word MYSELF is a compiler-supplied control -poi nt 
fier which is associated with any process which uses it. Thus 
attribute of a particular task may be referenced within that 
MYSELF (<tasl( attribute>). 

TASK ATTRIBUTES BY NUMBER 
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TASK ATTRIBUTES BY NUMBER (Cont) 



NAME 



MAXCARDS 
MAXLINES 
JOBNUMBER 
CHARGECOOE 



TYPE 



Real 



Real 
I nteger 
Pointer 
ndicated attribute classes are defined as follows: 
0, read or write, but the value at process initiation is saved 
by the system for use throughout process execL 
2, read or 



1 , read 
3, write only, h, legal to SET, 
RESET, CAUSE^ WAIT, CAUSEANDRESET, and WAITANDRESET. 



BACKUPPREFIX (29) 

Pointer. This attribute allows a prefix other than the default "BD" 
to be used as the multi-file ID of the task's backup files. Any valid 
file TITLE may be specified as this prefix, and this attribute has 
effect only if bit 6 of the task's option word is on. The construct 
is useful when a process other than AUTOPRINT is to print the backup 
files thus preventing the automatic printing and removal of the files. 

CHARGECODE (42) 

This attribute is a pointer that carries what charge information the in- 
dividual site management desires. The MCP does not use the CHARGECODE 
information, it merely logs the information, if a site operations manage- 
ment desires to enforce charging conventions, UDATA5TRUCTURE provides a 
means to enforce site discipline. 

CLASS (34) 

An integer telling which QUEUE this task is associated with. 
COMPILETYPE (35) 

Is an integer identifying what type of compilation is desired. 

1 . COMPILE and GO 

2. COMPILE for SYNTAX 

3. COMPILE to LIBRARY 

It. COMPILE to LIBRARY and GO 

DECKGROUPNO (33) 



a WFL JOB deck. The 
tween which two data decks of 
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DECLAREDPRIORITY (3) 

Real. Priority used for scheduling by system. May be read or set at 
any time; however, the value at process initiation is saved by the 
system throughout process execution. Values range from to 99. De- 
fault value - 50. Hay be initialized by PRIORITY Control Statement. 
Set by ALGOL assignment statement (TASK. DECLAREDPRIORITY := 
<real number>;); set by COBOL SET statement (SET TASK (DECLAREDPRIORITY) 
TO <real number>) . 

ElAPSEDTIME (15) 

Real. The elapsed processor time. This is the total time elapsed 
since actual process initiation. Read-only attribute; may be read 
at any time. Values are expressed in microseconds (increments of 
2. A microseconds). For example, a 1 indicates 2.14 microseconds, a 
2 indicates 'l.S microseconds, etc. 

EXCEPTIONEVENT (21) 

Event. The EXCEPTIONEVENT for a task is caused whenever any process 
having that task as its EXCEPTIONTASK undergoes a change in status. The 
user task may SET, RESET, CAUSE, or WAIT upon EXCEPTIONEVENT. The com- 
posite EVENT functions of CAUSEANDRESET, WAITANORESET, etc., are also 
allowable. Values - "Happened" or "Not Happened". (The first word (of 
two words) placed in the stack for the event declaration contains a 
"Happened" bit (bit 1). This bit is set when the event is caused; other- 
wise, this bit is a 0.) Applicable ALGOL intrinsics: AVAILABLE, PROCURE, 
LIBERATE, HAPPENED, SET, RESET, CAUSEANDRESET, WAITANORESET, WAIT. 
Applicable COBOL statements: CAUSE, CLEAR, IF, WAIT, LOCK, UNLOCK 
ATTACH, DETACH, ALLOW, DISALLOW, WAIT. 

EXCEPTIONTASK (16) 

Task. Specifies the process that is to be notified (by causing 
EXCEPTIONEVENT for the task associated with the process) when a change 
occurs in the value of the attribute STATUS of the present task. Hay 
be read or set at any time. (See also EXCEPTIONEVENT.) 
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FILECARDS (24) 

Pointer. Al !ow5 initiating task to label-equate files of the tasit 
which is to be initiated. Write-only attribute. Must be specified 
before the file is opened. FILECARDS is assigned a string of one or 
more card images of FILE Control Statements. The card images must 
not be preceded by, or contain, an illegal character. The last FILE 
Control Statement must be followed by a null character {'4"00"). In 
ALGOL, the string may be assigned to FILECARDS using a pointer 
expression. In COBOL, the string may be assigned as follows: 

SET TSK(FILECARDS) TO A-NAHE. 

Where A-NAHE is an array containing the FILE Control Statements 
followed by an element containing Lower Bounds (i.e. ^"00" 's). 

HISTORY (10) 

Real. Specifies the reason for which a process was terminated. Read- 
only attribute. The contents of this word are primarily used to indi- 
cate the reason why the stack is DSed or STed. Values and meanings: 

BITS WAHE 6 WEANING 

7:8 HISTYPEF. 

= NORMAL 

1 - DUMPING 

2 » QTED 

3 = STEO 
h - DSED 

5 - NORMALEOT 

15:8 HISCAUSEF. 

1 = OPERATORCAUSE 

2 = PROGRAMCAUSE 

3 = RESOURCECAUSE 
I) ■ FAULTCAUSE 

5 - SVSTEMCAUSE 

6 - DCERR 

7 - lOERR 

8 • SOFTIOERR 

9 " NEWIOERR 

10 = UN IMPLEMENTED 

11 - UNSPECIFIEDCAUSE 

23:8 HISREASONF. 

IF DSED FOR "FAULTCAUSE" THEN: 

1 - DIVIDEBVZEROV. 

2 ■ EXPOVERFLOUV. 

3 ■ EXPUNDERFLOWV. 
1| - IN«ALIDINDEX«. 
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NAHE t MEANING 

5 " INTEGEROI/ERFLOWV. 
i - INACTIVEOK. 

7 « HEHORYPROTECTV. 

8 • INVALIOOPV. 

9 - LOOPU. 

10 - NENORYPARITYV. 

11 = SCANPARITYV. 

12 . I NVAl 1 DAODRESSV . 

13 - STACKOUERFLOWU. 
U » STRINGPROTECTV. 

15 = PROGRAMMEDOPV. 

16 - BOTTOMOFSTACKV. 

17 - SEUUENCEERRORV. 

18 = INVALIDPCU. 

19 = STACKUNDERFLOWU. 

20 - ZAPPED. 

'lO . DISKPARITYV. 

IF OSED FOR "RESOURCECAUSE" THEN: 

- PROCESSEXCEEDV. 

1 = lOEXCEEOV. 

2 - STACKEXCEEOV. 

3 - PRINTEXCEEOV. 
"l - PUNCHEXCEEDV. 

5 ■ CARDREADEXCEEDV. 

6 = NEMORVEXCEEDV. 

IF OSED FOR "OPERATORCAUSE" THEN- 

= RSVPV. 

1 - CLEARUNITU. 

2 - JUSTDSEDV. 

IF OSED FOR "PROGRAMCAUSE" THEN ■ 

- mSSINGCODEFILENAMEV. 

1 • mSSINGCODEFlLEU. 

3 ■ INACTIVETASKV. 

* - NONEXTERNALRUNU. 

18 • DEATHINFAMILY. 

19 = CRITICALBLOCKU. 

20 - BADGOTOV. 

26 > NOTEXECUTABLEI/. 

27 - UNHATCHEDPARAHSV. 

28 ■ INVCOHPILERV. 

29 - SECURITYERRORV. 

32 = 6ADRESI2E0EALL0CV. 

37 " HISSINGINTRINSICV. 

38 - INCOMPATIBLELEVELV. 

39 - INFANTICIDE. 
'40 = NOTBOUND. 

'll - ILLEGALOUNARRAVW. 
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I42 " DIMSI2ERR0RV. 
"13 - UPLEVELATTACHU. 
^'^ - ILLEGALSWAPV. 
Il5 = SWAPDOESNTALLOWV. 

IF OSED FOR "SVSTEMCAU5E" THEN: 

1 = NOHEMV. 

2 = PARITYONPBITV. 

3 = ARRAYTOOLARGEU. 

IF STED FOR "SYSTEHCAUSE" THEN: 
1 - WSSI2EEXCEEDU. 

IF DSED FOR "UN I MPLEHENTED" THEN: 
1 - OYNAMICOUNARRAYV. 

INITIATOR (20) 

Real. This attribute, used for data communications only, contains 
the number of the station from which the task was initiated. The 
attribute may be read or written, but the value at process initiation 
is saved by the system for use throughout process execution. Values 
and meanings: Device #. 

Hay be set by STATION Control Statement. 

JOBNUM (41) 

integer. This attribute reflects the job number for a queue job. 
JOBNUH can be read at anytime but can only be conditionally set. 

LOCKED (17) 

Boolean. This attribute may be set or tested for specific purposes 
desired by the programmer. May be read or written at any time. 
Values = TRUE or FALSE. If an attempt is made to set LOCKED to TRUE 
when it is already TRUE, the process attempting to set LOCKED to TRUE 
will be suspended until LOCKED Is set to TALSE (by some other process). 
Then, the process attempting to set LOCKED to TRUE will be resumed and 
will set LOCKED to TRUE again. 

NOTE 

LOCKED must be tested prog rarmat ical ly . 
Locking functions which are tested 
automat icat ly by the MCP are described 
under "Locks and Readlocks". 
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MAXCARDS (39) 

Real. This attribute provides the limit to the amount of cards to be 
punched by the tasl<. 

MAXIOTIME (S) 

Real. Specifies the maximum amount of I/O time that may be used by a 
process. May be read or set at any time; however, the value at 
process initiation is saved by the system throughout process execution. 
Values are expressed in seconds. The specified time can be a frac- 
tional amount of seconds. May be initialized by lOTIME Control State- 
ment. 

MAXLINES (40) 

Real. This attribute provides the limit to the amount of lines to be 
printed by the task. 

MAXPROCTIME (4) 

Real. Specifies the maximum amount of processor time that may be used 
by a process. Hay be read or set at any time; however, the value at 
process initiation is saved by the system throughout process execution. 
Values are expressed in seconds. The specified time can be a frac- 
tional amount of seconds. May be initialized by PROCESSTIME Control 
Statement . 

NAME (0) 

Pointer. Specifies the file name (TITLE) of the code file to be used. 
This attribute is used only when initiating an externally-compiled 
procedure or subprogram. May be read or written, but the value at 
process initiation is saved throughout process execution. Default 
value = none. It must be specified. The value may be stored for 
NAME using an ALGOL REPLACE statement. In COBOL, the value is stored 
using the SET statement. In both ALGOL and COBOL, the value to be stored 
{the file TITLE) must be a string containing a period as the last char- 
acter, 

OPTION (22) 

Real. Used to set the bits in the option word for the process {in the 

same manner as the OPTION Control Statement. May be read or set at 

any time. Values: The bits, when set, have the following values and 
meanings . 

ORGUNIT (38) 

This attribute indicates where the JOB originated. It carries a UNIT 
number or the logical station number of the terminal. 
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61) 
128 

256 



Heaninc] 

No segmented arrays allowed. 

Program dump If any fatal 
internal error occurs. 

Program dump for any exter- 
nal termination condition 
(such as operator DSed) . 

Control cards wi 1 1 be 
1 isted on print f i le 
named DIAGNOSTrCS 

All print files for the 
process will be printer 
backup f i les . 

Dupi icate f i les for this 
task will be automatically 
removed. 



Dunp base of stack if and 
when PROGRAMDUMP 

Dimp all arrays of stack if 
and when PROGRAMDUMP 

Dump Segment Dictionary of 
STed if and when PROGRAMDUMP 

Dump Files of stack if and 
when PROGRAMDUMP 



Comparable OPTION 
Control Statement 

; OPTION = LONG 

; OPTION = FAULT 

; OPTION = DSED 



OPTION = AUTORH 



; OPTION = BASE 

; OPTION = ARRAYS 

; OPTION = CODE 

; OPTION = FILES 



The option word for the process can then be set in one of the follow- 
ing ways: 

PROCESS. OPTION := fOIOtlO"; 

PROCESS. OPTION := 22; 

The two statements each achieve the same result. Bits 2, 3, and 5 of 

the option word for the process will be set, causing programs dumps on 
all abnormal terminations of the process, and causing all printer files 
to be printer backup files. 
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PARTNER (19) 

Task. indicates the task to which control will be passed when a CON- 
TINUE statement is executed in a synchronous process. May be read or 
set at any time. Value: a task identifier. 

i.e.. set by: Tl .PARTNER := T2 ; 

PROCESSIOTIME (M) 

Real. Returns the accumulated 1/0 time (the total I/O time used to 
date) for the process. Read-only attribute. May be read at any time. 

PROCESSTIME (13) 

Real. Returns the accumulated processor time (the total processor time 
in seconds used to date) for the process. Read-only attribute. May 
be read at any time. 

PROCESSTYPE (26) 

Reserved for MCP use. 

RESTART (28) 

Real. The value of this attribute specifies the number of times the 
task is to be re-executed following an error termination pending a 
successful termination. The default value is zero, and RESTART is decre- 
mented by one after each execution of the process. An operator-DSed task 
wi 1 1 not restart. 

5TACKHIST0RY (30) 

Pointer. This read only attribute is conditionally stored on a fault 
and indicates the stack history (nesting of procedure calls) at the time 
of the fault. STACKHISTORY is unconditionally stored when the task is 
terminated due to a fault- 

The format of the STACKHISTORY is the standard format: 

SSS:AAAA:Y,#SSS;AAAA:Y,#....#SSS:AAAA:Y. 



SSS;AAAA:Y#(DDODDDDD) J #SSS : AAAA:Y#(DDDDDDDD) . 

where SSS is the segment number, AAAA is the address, Y is the syllable, 
# is a blank space, DDDDDDDO is the line number (only present if LINEINFO 
was set during program compilation). The period (.) always terminates 
the last entry. 
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STACKNO (1) 

Real. Returns the mix number of an active process, or the negative of 
tine mix number of a terminated process. May be read at any time. 
Values: A negative number indicates a terminated process, a positive 
number indicates an active process, a zero indicates that the task 
variable was never associated with an active process. 

STACKSIZE (7) 

Real. Specifies or returns the stack size requirement used for 
scheduling by the system. Hay be read or set at any time; however, 
the value at process initiation is saved throughout process execution. 
May be initialized by STACK Control Statement. Value is the number 
of words required for the stack of the task. 

STATUS (12) 

Real. Returns the current state of the process; may be set to cause 
status changes as described belcw. May be read or set at any time. 
The values are as follows: 

Not being used (the task is not associated with a 
process). Setting the attribute to disassociates 
the task from the process. 

1 The process is scheduled. Setting the attribute 
causes the process to be scheduled. 

2 The process is active. Setting the attribute to 2 
has no effect unless the process is suspended. 

3 The process is suspended. Setting the attribute to 3 
suspends the process. 

"' The process is terminated (DSed or EOJ) . Setting 
the attribute to -1 causes the process to be DSed. 

~^ initiation of the process has failed when attempted 
by the MCP procedure DOCTOR. Setting this attribute 
to -2 has no effect. The DOCTOR procedure has stored 
an error code in task. HISTORY indicates the cause 
of the failure. (See HISTORY.) 

STOPPOINT (18) 

Real. Contains the segment and relative address at which the last 
arithmetic fault occurred in the process, or contains the segment and 
relative address at which the program was terminated or suspended. 
Hay be read at any time. Read-only attribute. Value: STOPPOINT 
returns the RCW which was created due to the fault. 
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SUB5PACES (31) 

Real. The values (0 thru 3) of this attribute determine the manner in 
which the Swapper independent runner handles the associated tasks. The 
four values are: 

0: the task's code, stack, and data ace not contained in the swap 
area; 1: the task's code is not contained In the swap area; 2: if 
the code file of the task is in the user's usercode library, the 
MCP will place the task's code, stack, and data in the swap area. 
In all other cases, the code Is placed outside of the swap area and 
the stack and data are placed in the swap area; 3: the task's code, 
stack, and data are contained in the swap area. 

SUBSPACES = 3 for the GO part of COMPILE AND GO jobs initiated thru 
CANDE, SUBSPACE = 2 for any job executed thru CANDE, and SUBSPACES = 1 
for any other jobs {e.g., compiles, execution of L0GANALY2ER, DCSTATUS , 
RESEQBASIC) . 

TARGETTIME (6) 

Real. The time by which the process should be completed. Used for 
scheduling by the system. Hay be read or written at any time, but the 
values at process initiation are saved by the system throughout process 
execution. The time Is expressed In four digits (military format), 
indicating hours and minutes of a 2^-hour clock. May be Initialized 
by TARGET Control Statement. 

TASKFILE (32) 

TASKFILE is a printer backup file associated with each task. When a 
PROGRAMDUMP Is requested, it Is written to the TASKFILE. If the pro- 
graimer desires to Intermix his data between occurrences of his PROGRAM- 
DUMPs, the programmer codes WRITE (MYSELF. TASK, <format and list part>). 
TASKFILE can also be label equated in a control deck. For example, 

? FILE TASKFILE (KIND = PRINTER) 

forces the PROGRAMDUMP directly to a line printer when LPPBDONLY is reset. 

TASKVALUE (9) 

Real. This attribute may be set or tested for specific purposes de- 
sired by the programmer. May be read or written at any time. Values 
are specified by the programmer. This attribute Is generally used as 
a means of communication between processes. 

TYPE (11) 

Real. Returns the type of process. May be read at any time. Read- 
only attribute. 

= PROCESS, 1 = CALL, 2 = RUN , 3 = JOBSTACK 

USERCODE (8) 

Pointer. Accepts or returns the usercode for the process. May be read 
or set at any time, but the value at process initiation Is saved by the 
system throughout process execution. Hay be initialized by a USER Con- 
trol Statement. Default value Is the usercode of the global process. 
May be set as follows: 
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(ALGOL) REPLACE T.USERCODE BY J "ABC"; I 

(COBOL) SET TSK(USERCODE) TO "ABC". 

Notice that in ALGOL the string must be terminated with a period; 
whereas in COBOL the string must not be terminated with a period. 

VALIDITYBITS (23) 

Boolean. This attribute, which is used for internal bool<l<eeping 
purposes, is set when the user specifies the setting of any tasli attri- 
bute explicitly by some program using a task attribute statement. 
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DATA COMMUNICATIONS SOFTWARE 

CANDE 

Syntax Conv*nriont 

The principal means of displaying CANOE syntax is the syntax diagram. 
The rules of such diagrams are: 

1. Any path traced along the forward direction of the arrows will 
produce a syntactically valid comnand. 

2. Any "bridge" over a digit may be traversed a maximum number of 
times specified by the digit. If the digit is followed by an 

* , then the path must be crossed at least one time. 

3. Upper-case letters in the syntax diagrams indicate keywords 
which are literally in the commands. Hinimum abbreviations are 
indicated by underscoring. 

h. End-of-statement is indicated by: 



which denotes either a semicolon or 
end of 1 i ne . 



''^ -O which denotes end of line. 

5. Lower-case letters, words, and phrases are syntactic variables, 
which represent infomiation to be supplied by the user. 

6. Identifiers may vary in length from one through seventeen 
characters. 

7. The variable "delim" represents any arbitrary delimiter which 
may generally be any non-alphanumeric character except one that 
occurs in the field being delimited or one that might have 
special significance in the context of its appearance. 

8. A <sequence range> specifies an inclusive range of sequence 
numbers: 



A <sequence range list> consists of one or more sequence ranges 
separated by commas. 
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range> specifies an inclusive range of line columns: 



10. A <modIfIer> is a standard MCP control statement. 

If a modifier Is preceded by £OMPILER or a <compiIe type> , It 
refers to the compilation rather than the execution. 

11. A logical station number, <lsn>, is a unique integer assigned 
to each station in the datacom network. 

12. A <station name> Is an identifier identifying a station in the 
datacom network. 

LOG-IN PROCEDURE 

Connection must be established between the user's terminal and the systei 
in the manner prescribed at the installation. After a connection has 
been made, the system types a greeting message as follows: 

B 6700 CANOE <system release level> YOU ARE: 
<5 tat I on name>(<l sn>} 

The system then Initiates the log-in sequence which consists of the 
fol lowing steps: 

a. System Message User Response 

RENTER USERCODE PLEASE enter: <usercode> or 

<usercode><del imi ter> 
<password> 

CENTER PASSWORD PLEASE enter: <password> 

b. The user may then be asked to enter installation-dependent 
information such as a charge code. 

c. If any recovery files exist at log-in time, CANDE will type: 

^RECOVERY DATA: 

xxxx <workf i lename>(<date>) 

where xxxx Is the recovery index, <workf i lename> Is the name 
of the recovered workfile, and <date> is the date of the 
aborted session. 
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Recovery of the desired workfile is accomplished via the RECOVER 
command: 



d. Completion of iog-in is indicated by the message: 
LOGGED IN <time><date> 

SPECIAL CONTROL CHARACTERS 

Special characters to edit messages which are supported by SYSTEM/ 
SOURCENDL are: 

end-of-text (ETX) Control-C 

bacl^space Controi-R 

I ine deiete Rubout 

control command ? 

FILE NAMES 

A filename identifies a file in the B 6700 system. A CANDE filename 
consists of a list of 1 to 12 identifiers separated by slashes. Each 
Identifier may contain up to 17 characters. In some contexts, the file 
name may begin with * or (<usercode>) to denote a system or other-user 
file. A worl<f liename is limited to 136 characters. 

FILE TYPES 

Possible types which may be specified for a worl<file are: 

ALGOL BASIC 

DCALGOL m 

XALGOL ES^POL 

FORTRAN BINDER 

XFORTRAN SEQ 

COBOL DATA 

SEQUENCE NUMBERS 



BASIC symbol files - 4 digit max 
COBOL symbol files - 6 digit max 
other f i les - 8 digi t max 



mum 
mum 
mum 
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USER LIBRARY FILES 

CANDE files are handled in such a manner as to ensure user file security. 
All source files are saved unaltered as: 

(<usercode>) <f i )ename> 

Object files are usually entered into a separate directory as: 

(<usercode>)OBJECT/<f ilenafne> 

"S" may appear (wherever allowed in syntax) to omit "OBJECT/" in disk 
f i lename, 

Other files may be generated by CANDE and placed in the user's library. 
PROGRAM EXECUTION COMMANDS 



T^*-aource tiltnorrM 

I^^AS-i p-object filenams-* 

^^1\**atondafd compilcfnanw — 



k-WITH— .- 



compiltff>Qmt— 
compiler typs 



.-*modi(*r-' 



Invoke the standard system binder and compilers or any non- 
standard versions. 



Standard 
Compi lernames: 



ALGOL 
XALGOL 



DCALGOL 

FORTRAN 

XFORTRAN 

COBOL 

BASIC 

PL/I 

ESPOL 

BINDER 



Compiler types: 

ALGOL 

XALGOL 

DCALGOL 

FORTRAN 

XFORTRAN 

COBOL 

BASIC 

PL/ I 

ES^POL 

BINDER 
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' l-^i— "-modifier— ' 



:;t 



Cause execution of an object program. (Run will provide for 
compilation if necessary.) 

CANDE COMMANDS 
Work FiU Commands 



GET — ^ f il«Min« -* 



MT* ^ saquani 

L-/T» -AS — 



$aquanc« range list — 

AS -— workf ilanome — 



Recalls an existing file as the workfile. 



MAKE — filtnom*- 



Creates a new workfile. 



' —recovery Index ' 



Lists recovery files or recalls a recovery file as the 
workf i le . 



E SOURCE — — l-— filenome -4 
OBJECT 1 — $ filename ^ 



May be used to remove the workfile or any file in the user's 
I ibrary. 
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E SOURCE * ^AS tilename -J 
OBJECT 1 ^AS $ filenome — J 



Causes the current workfMe and/or its associated object file 
to be saved in the user's library. 



r EZ — II t 

|--SqURCE-» -filename, 1 ^TO-J 

W OBJECT -i p-filtnomt,-! j-j — 



Changes the filename of the workfile or files in the user's 
1 ibrary. 



' — filenome ' ' — ^TO ' 



Changes the file attribute FILEKiND of a file. 



Forces immediate update action on the workfile. 
WHAT ^^ — — • 

Indicates the state of the workfile. 
Editing Commands 



- sequence range list - 
—ALL 



Discards lines from the workfile 
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5-] p-aeiimT-fci«t-T-^i 

'«-col.r---»col,-J I 1 

L : 



aelim-p— t«t-j-— deljm— ^newlext— —O 



Alters the contents of the workflle by inserting new text or 
replacing part of a line. 




Copies lines from the workfile or other file and places the 
copies into the workfile with new sequence numbers. 



JT^ 



deJ 



•■ sequence ranga list - 



Cause a specified file, or portions thereof, to be merged 
with the workfile, with the result becoming the workfile. 



- sequence ronqe list- 

- TO 1 —base - 



l-^END 



NEXT H 

END -J 



crj 



Moves lines fron one point to another within the workfi 
and changes their sequence numbers. 
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77 

k— pV£R RI 



' — —base—' I— 4- inc ' 



Assigns new sequence numbers to lines in the workflle without 
changing the order of appearance of any lines. 



Any line beginning with a digit is a "command" to enter a 
new line of text at the sequence number specified or to 
replace or delete the line at that sequence number. 

Search Commonds 



FIND-*- 



MV-^ LITERAL — 



-delim— — tMt — — d«lim— ' — 



Searches a file for the appearance of specific text. 



P -f.ler 




'^ — sequence range list 

(J — "■ column range — 

rTEXT 
FILE — Menome- 
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T*-— FIRST - 
T'— LITERAL --J 



dehm — i«Kt *belim — j— delim — newtexl -*- delim- 



CMiim-^i«xt 
COLl^N-»col|-r* - col, 



-» newtexl -^ delim-*- •- 



Scans Iine-by-!ine through the workfile or selected 
portions, replacing certain target with new text or 
inserting new text. 



t: 



■ sequenct rongt Irjt — 
(a>— ^column range — 

SQUEEZE 

TRUNCATE 



■ -p^SEOUENCE 

^— TEXT 

'— ^FILE ^frl»fiom«- 



nput/Oufput Commands 



■■ sequence ronge list - 
- (^ column ronqe — 



-UN SEQUENCED- 
- PUNCH 



Displays the contents of the workfile or some other file 
to the user at his terminal. 
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"u: 



-boae * 

-NEXT - 

-END - 



Initiates reading input from paper tape. 

Editing Mode Commands 



-bosa — 
-NEXT- 
-END — 



Invokes automatic sequence mode, causing the system to 
provide the sequence number for each new line- 



E 



L-»;— «ntry — ' 



3" 



Controls the entry of text at the left margin of a line 

Environment Commands 



— O 



Terminates the user's current session. 
Char ge •- ctiorge code — — ■ — — ~ 



Used to specify a charge code for a session. 
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l^Sl I A I US -1 T 1 T ^ 

' — ^input specificolions ' [^ 

1—^; ——modifier—' 

Causes execution of SYSTEM/DCSTATUS which provides general 
information regarding the status of the datacom network. 

I — L— identifier — ' ' '-* ; — -modifier-J 



Results in the execution of SYSTEM/LI STFl LES which provides 
a list of the names and types of files in the user's library. 



-> — — posaword ' 



- usercode L— posaword 



Initiates a new user session without disconnecting 
the terminal . 



' — '-—identifier^—' l-— ; — — m 



Results in the execution of SYSTEH/LI STF!LES which provides 
a list of the names and B 6700 file attributes of files in 
the user's 1 ibrary. 



-input specifications - 



Results in the execution of SYSTEM/LOGOUT which provides 
a log of job performance. 
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X E L T 

■^-currentpcssurard-^^new password -'-— new posswofd-' 



Allows a user to change his password. 



I""! p*-f,ier«3meCjTS-» PRIVATE — 

p- SOURCE U-CLASSA-* 

L^OBJECJi » '-'T'-T*- SECURED— 



SECUREO- 

*-OUT- 
■—10 — 



Allows specification of the security attributes of a 

user's file. 



Divides session to print accumulated listings. 



-LINE -liMwidlh — 

■- PAGE — pOQtlangth- 



T 

•—I 

— r*S( 

I— H 



■SUFFER r— — butfertJM - 



UNBUFFERED - 

SCREEN 

HAROCOPY 

WAIT 



CONTINUOUS - 

toldmork" — 



Specifies attributes of the user's terminal. 
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CONTROL COMMANDS 



Terminates the current output to the terminal. 
?DS ^ 



Causes the termination of any program scheduled or 
initiated by a user or a CANDE editing or output process. 



?DENY - 

?e:no — 



Provides for terminating the usage of a terminal as a 
remote file. 



?MCS ^nessage control sysiam name- 



Provides a user the ability to transfer to a MCS other 
than SYSTEM/CANDE. 



starion namt- 
SPO 



Provides a user the ability to send a message to 
another station. 



Provides the current status of user's program 
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Provides the station name and Isn of a user 



PWRU 

<wru key> 



-O 



Provides identification of the operating datacom system 
and the user's terminal. 



For information concerning the CANDE 
control functions, refer to CANDE OPERATIONS 
MANUAL, Form No. 5000615, Dated 18 October 1972. 
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REMOTE JOB ENTRY SYSTEM 

The concept of remote job entry (RJE) involves a remote satellite sys- 
tem consisting of a small terminal computer connected to a central sys- 
tem via a coinnunicat ions line to which one 80-co!umn card reader, one 
line printer (120 characters minimum), and one 72 character supervisory 
console can be connected. This particular type of system allows the 
fol lowi ng : 

a. Introduction of programs from a remote reader. 

b. Introduction of data from a remote reader. 

c. Output data printed on the remote line printer. 

d. Monitoring and controlling of programs via a remote supervisory 
console. 

MESSAGE FORMAT 

The message format is designed to maximize line thruput and detection 
and recovery of errors. The format of the message is assumed to be in 
ASCI i-67 and as fol lows: 



S C A A T S 
N D D N T 
H R I 2 X 



(TEXT) 



D E H H 

L S C C |<TEXT> 

CC I 2 



(TEXT> 



EB 
TC 
XC 



A description of each part of the message format is as follows: 

a. SOH - Start of header indicates that data is being transmitted. 

b. CNR - This character may be NUL, NAK or ACK and is used for 
error detection and recovery as follows: 

When a message is to be sent, then CNR is set to: 

(1) NUL if the previous input has already been acknowledged. 

(2) NAK if the previous input was received with errors. 

(3) ACK if the previous input was received correctly. 

When a message is received as the acknowledgment of a previous 
output, then: 

(1) If CNR is NULL the previous output was not seen and must 
be re-sent. 
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(2) If CNR is NAK the previous output was received incorrectly 
and should be re-sent. 

(3) If CNR is ACK then the previous output was received cor- 
rectly; therefore, it can be discarded and the next 
output, if any, can be transmitted. 

c. The address designate characters (ADI , AD2) relate a message 
to a particular device on a remote satellite as follows: 

A A 

D 

1 2 

= System control 

1 - To/from RSC 

2 "To card punch/from card reader 

3 = To line printer/from (is an error) 

** = To paper tape punch/from paper tape reader 

5 = To/from magnetic tape 

6 through 09 = (Reserved for expansion) 

1 through 99 => ADI and AD2 of terminals connected to the 

remote sate! I i te. 

d. The transmission number (TN) is counted up one modulo 10 (0-9) 
with each transmission. It is used to detect duplicate or 

missing transmissions. 

e. The STX character serves as a delimiter between the header 
portion and the text protion of the message. 

f. The CR character serves as a separator between records within 
a message. 

g. If the message carries a unit designate of line printer, then 
the first two characters after the STX or each CR are con- 
sidered as the carriage control characters (CCl , CC2) which 
deliver carriage control to the remote line printer as follows: 



C C 
1 2 
= Print no space 

1 = Print and skip to top of form 

1 = Print and single space 
1 1 = Print and double space 
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The sequence "DLC ESC HCl HC2" may be encountered anywhere 
within the message and represents a field of identical, adji 
cent characters as follows: 

DLC - The character being supressed. 

ESC - Field compression indicator. 

HCl, HC2 - The number of times DLC is repeated. 

HCl and HC2 represent a hex count and only the numeric por- 
tions of the fields should be used and the zone should be 
discarded. For example: 

HCl HC2 



Zl 




Z2 


Nl 


N2 



The number of characters in the field is 

(NI-16+N2) = 255 maximum 

There is a slight complication due to the B 6700 operating in 
EBCDIC, the message being in ASCI 1-6? and the HCl, HC2 being in hex. 
Care must be taken in what zones are to be put into Zl and 22 to ensure 
that a hex value is maintained in Nl and N2 after HCl and HC2 undergo 
ASCII to EBCDIC translation. It is recommended that the remote satel- 
lite use the following conversions when generating the HCl and HC2 
characters. 



ASCI 1 


il 




HEX. 
30 


To give 


Nl 


or H2 


In EBCDIC 














1 






31 






1 




2 






32 






2 




3 






33 






3 




ll 






}ii 






1| 




5 






35 






5 




6 






36 






6 




7 






37 






7 




8 






38 






8 




9 






39 
3A 






9 

A 




* 






23 






8 




9 






1.0 






C 




vertical 


bar> 


27 






D 




- 






3D 
22 






E 
F 
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The above does not consider the proper setting 
of the eighth bit (parity bit). 

The ETX character is used to denote the end of a message. 

The BCC is the block check character, i.e., longitudinal 
parity character. It is the exclusive or of all characters 
starting with the ADI through and including the STX character. 
The purpose of the BCC is to ensure proper receipt of 
me s & a ge 5 . 



NAMING CONVENTIONS 

In order to allow remote users to be isolated from each other, in so far 
as file name selection and at the same time maintain a system of unique 
names to the central system, a user identification can be assigned by 
the data processing manager to each user of the system. The RJE MC5 
obtains this user/identification in either of two ways, by station log- 
in or by a special control card. 

The RJE MCS will ensure that the user identification is valid before 
either allowing connection of the RJE satellite to the system or running 
a program. In order to reference system files. It is necessary to over- 
ride this automatic prefixing of files by the MCP. This can be accom- 
plished by preceding the first identifier of a file name by an asterisk 
(") , either internally or externally. For example, to reference a site 
file called A/B, a label equation card of the following form would have 
to be used : 

<l> FILE <internal-name> {TITLE = * A/B) 

REMOTE DECKS 

The RJE MCS expects to see its input from a remote site in the form of 
decks for which there are four types; COMPILE, EXECUTE, RUN, and DECK. 
Decks are comprised of a number of "card image" messages, each message 
consisting of 80 characters. The first character of a control card is 
the control character (<l>) and is ignored by the RJE MCS. 

COMPILATION DECK 

The appearance of a compile deck indicates a request for compilations. 
The format of a typical compilation request deck is as follows (Note: 
zero, one or more "user cards" are allowed); 

<\> COMPILE <program name> WITH <compiler or binder name> 

(Note: "BIND <program name> WITH <binder or compiler name>" is 
al so a I lowed. 

<l> COMPILER CONTROL CARDS 

<1> COMPILER LABEL EQUATION CARDS 
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<l> OBJECT CONTROL CARDS 

<l> OBJECT LABEL EQUATION CARDS 

<l> EBCDIC 

(compiler $ and input cards) 

<l> END 

The object program name from the compile card is handled by the MCP. 

■■■ A/B wouid go unchanged but 

A/B would become USERCODE/< user-l D>/A/B 

The compiler and object control cards (STACK, PRIORITY, etc.) if present 
are used by the MCP as is. 

EXECUTE DECK 

The appearance of an execute deck indicates a request to execute a 
program residing at the central system. The deck may be in two formats 
(Note: zero, one or more "USER CARDS" are allowed): 



Forrr 


at 


1 : 
l> USER 


= <i 


jser-ID> 












< 


\> EXECUTE <PN> 














(Note: 


RUN 


<PN> is 


a' 


Iso 


all 


owed . ) 




< 


l> <opt 


iona 


1 label . 


eqi 


jat' 


ion> 






< 


l> END 














Format 


_?: 















<\> USER = <user-ID> 

<l> EXECUTE <PN> 

(Note: RUN <PN> is also allcA»<ed.) 

< I > <Qpt iona I 1 abel equat ion> 

<l> EBCDIC <DNI> 

(i nput data) 

<l> END 

Note: The "< I > END" must always be on a separate card in an execute 
deck. 
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DATA DECKS 

Data can be collected on the central system via a data deck. The 
following is a format of a data deck (Note: zero, one or more "USER 
CARDS" are at lowed) : 

!BCL 
DATA 
EBCDIC 

(input data) 

<l> END 

REMOTE SUPERVISORY CONSOLE (RSC) 

A remote-operator/system interface is required in order to make 
decisions which cannot be pre-programmed. This feature is provided 
through output and input messages via the remote supervisory console 
(RSC). 

OUTPUT MESSAGES 

There are three types of output messages: 

1 . Loca 1 

2. System status 

3- Log-on and log-off 

Local Messages 

Local messages are generated by the remote satellite having to do with 
its own control, such as reader hopper empty, printer out of paper, etc. 

System Status Message 

The format of a system status message is; 

<mix index> ; <status> : <priority> : <program-name> 

where 

<mix index> : := {program reference number} 
<status> ::= BOJ/ (beginning of job) 

SNTX/ (syntax in compilation) 

EOJ/ (end of job) 

STOP/ (program suspended) 

DS-ED/ {program terminated) 

SCHD/ (program scheduled) 

EXEC (program in execution) 

<priority> : := [a digit with a range of 00 to 99 indicating program 
priori ty} 
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LOG-ON and LOG-OFF M*»ag*t 

If a connection to the central site exists, the RJE MCS will respond 
with the following message: 

B6700 SYSTEM/RJE a.^t.OO MlX=nnnn. 
#ENTER USERCODE PLEASE. 

The remote operator then must enter the user-ID assigned by the central 
system and then the RJE MCS will respond with 

#AND YOUR PASSWORD. 

The remote operator then must enter his password. If the password or 
usercode is incorrect, then the RJE MCS will respond with 

^SECURITY ERROR, ENTER USERCODE. 
If the password Is recognized, the RJE MCS will respond with 

<station-name> LOGGED ON AT <time> <date> 
To terminate the connection, the remote operator enters 

BYE 

If the site is essentially "idle" the RJE MCS will respond with the 
following message and then terminate itself: 

<station-name> LOGGED OFF AT <time> <date> 

ERROR MESSAGES 

Control deck errors wi M be recognized and appropriate messages shall 
be given as follows: 

COMPILER NAME NOT FOUND. 

CONTROL CARD ERROR. 

DATA DECK ERROR. 

FILE CARD ERROR. 

FILE ID TOO LONG. 

FILE SECURITY ERROR. 

IDENTIFIER TOO LONG. 

INVALID FILE IDENTIFIER. 

NO FILE. 

NO FINAL QUOTE IN A STRING. 

NO INV. CHARACTER IN COL. 1 . 

NOT IMPLEMENTED. 

PASSWORD ERROR. 

RUN/COMPILE DECK NOT FOLLOWED BY END. 

UNRECOGNIZED CONSTRUCT. 

USER CARD ERROR. 

USER CARD REQUIRED. 

MESSAGE LOST - RESUBMIT DECK. 
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INPUT MESSAGES 
System Control Messages 

System control messages include the following: 
WT (return current time) 
WO (return current date} 
WH (return RJE level and HIXID) 
SS {message of up to 25 characters} 
The RJE opt ions i ncl ude the fol lowing : 
where <option> : := AUTOPRl NT/PBDONLY/AUTORM 
SO <option> - sets a particular option 
RO <option> - resets a particular option 



TO 



- lists the options and indicates whether the 
particular option is set or reset. Each option 
is as fol lows : 



(1) AUTOPRINT: if true this option wijl print automatically, 
on the RJE printer, all printer backup disk files as they 
are produced, 

(2) PBDONLY: if true this option will cause the system to 
automatically force all printer files to be equated to 
printer backup disk. 

(3) AUTORM: sets AUTORM option on all jobs. 



If both PBDONLY and AUTOPRINT are set then all printed output 
of programs fired up from the RJE satellite will be automati- 
cally printed on the remote printer. 

PB <mix index>. Prints on the remote printer all printer 
backup produced by the program whose reference number is <mix 
index> . 

SB <mix index>. Prints on the central system printer all 
printer backup produced by the program whose reference number 
i s <mi x i ndex> . 

<mix index>QT and <mix index>DS. Stop printing of a printer 
backup file. DS purges the backup file. Q,T does not. <mix 
index> is the reference number of the print backup routine. 
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i. SF <integer>. This option changes the blocksize on transmission 
between systems- The default is 'lO? characters/block which is 
the maximun. The minimum is 83 for transmission from the 
DCIOOQ and 135 for transmission from RJE. This factor should 
be set lower for systems with high error rates. 

j. RS <message up to 25 characters>. Sends a message to the 
sysTem SPO to which the system operator may respond. 

k. TF. Responds with the factor set. 

1. US. Responds with all RJE users and their SN ' s . The reqiiest- 
ing status is denoted by an ". 

Program Control Messages 

Program control messages inci ude the fo 11 owing information: 

a. CONTROL DECK. Compile and execute deck may be typed in from 
the RSC. 

b. <mix index>DS, Suspends a program. 

c. MIX. Returns a list of all running and scheduled programs 
introduced frcm the RJE satellite. 

d. <mix index>DS. Terminates a program. 

e. <mix index>TI. Returns the elapsed and processor time of a 
program. 

f. PD <file-ID>. Returns a message indicating the existence of 
<file-ID>. 

g. PD <file-ID>/ Returns a list of the files in the directory 
file <file-ID>. 

h. <mix index> OK. Causes a suspended program to resume running. 
SM Control Messages 

SM messages are accepted from the centra! site console. The basic form 
of an SM message Is <HCS mix number>SM: <text>. <text> must be in one of 
the two basic forms, <key word> <opti inal text> or <!sn> <key word> 
<optional text>. <key word>s are two letter mnemonics. The following 
discussion refers only to SM messages which must be entered at the 
central site console. 

<key word>s Requiring LSN 

a. PH. If an automatic callback was attempted but unsuccessful, 
the PH message will signal RJE to try dialing again. Note that 
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an attempt to dial must have already occurred. This restric- 
tion avoids erroneously or capriciously connecting switched 
I ines. 

SO <option>. SO sets the<option> specified. <option> can be 
either LOGON or USER- If USER is set, all decks originating 
from that station must be preceded by a USER card. If LOGON 
is set, a log-on sequence as described in the RJE manual is 
required, tf LOGON is set and USER is reset, all decks ori- 
ginating from that station which do not have a USER card will 
be run under the usercode as given by the log-on sequence. 
If LOGON is reset, no log-on sequence is required, and no de- 
fault usercode will be used. If a station is active and LOGON 
is not set for that station when the central site operator sets 
LOGON, the station wilt be logged off and required to log-on. 
The settings of these two options will be remembered across 
different runs of RJE. However, if RJELINKED file is removed, 
settings will return to the default of LOGON = set and USER = 
reset. 

Note that when running under a usercode, library maintenance 
cannot be performed on files not under that usercode directory 
unless it is a privileged user. To find files under a usei — 
code through RJE, use PD USERCODE/<user>/<f i le name> , where 
<file name> can be an equals sign. PD <file name> will search 
the system directory. 

RO <option>. The RO message resets the above options. 
5V. The SV message saves the specified station. The station 
is made not ready, and error recovery is discontinued. 
RY . The RY message makes the station, and line associated with 
that station, ready. This would appropriately be performed on 
a previously saved station. (See SV message discussion.) 
RE <optional to> <MCS name> . The RE message allows the central 
site operator to release an RJE station as given by the <lsn> 
to another MCS. An example would be: 

31 RE TO SYSTEM/CANDE 

Note that only the station specified is released. If, for 
example, LSN 3t were a remote supervisory console, the previous 
statement would release only the remote supervisory console; 
the printer, card reader and DCIOOO would function normally. 
If the LSN released is a printer or remote supervisory console, 
no further output to that LSN will be attempted. 
Drd> Allowing Optional LSN 

UH. The WH message without LSN provides the LSN state (i.e., 
active, inactive, saved) and station name of each station known 
to RJE. If an LSN is provided, the station name, usercode (if 
applicable), log-on requirements, USER card requirements or 
default usercode use, switched status, state and phone number 
(if applicable) are given for the specified station. The infor- 
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mation is provided via sequential diaplays on an asynchronously 
running task. 

<key word>s Not Allowing LSN 

a. DP <dump options>. Provides a RJELIKKED file printout and a 
progran dump. It is only applicable when RJE Is compiled with 
DEBUG set. <dufnp options> are base, arrays, files, code or an 
<integer>. Options may be separated by commas or blanks. If 
no options are specified, the options used will be as appeared 
on the option card when RJE was compiled. 

b. Hi. This message causes the current debug listing to be 
printed. Consecutive HI messages will print only the DEBUG 
listing not previously printed. 

c. QT. This message will cause RJE to go to EOJ In an orderly 
fashion. In particular, stations will be logged off so that 
correct accounting can be provided. This technique should be 
used in preference to DSing RJE. 

d. SS <string>. This is a broadcast of the <string> to all active 
RJE stations. The message will be printed on the RSC as: 

#SS ALL:<string> 

ERROR RECOVERY 

During system operation, connection between the central system and the 
RJE satellite may be lost. if all recovery attempts fail, the RJE MCS 
suspends all programs that were introduced from the RJE site, and then 
notifies the system operator and waits for a response. The system 
operator can enter either of the following two messages: 

a. OK. This will cause the RJE MCS to re-establish connection 
to the line. It will resume everything it suspended if the 
connection can be made. If it cannot re-establish a connection, 
the system operator will be informed. 

b. DISCONTINUE. This entry will cause the RJE MCS to terminate 
everyth ing it controls then termi nate i tse 1 f . 
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DEBUG COMPILE OPTION 

If the option DEBUG is set wlien SYSTEM/RJE is compiled, certain features 
are added. 

a. Monitor output will be produced. 

b. DP message - The DP message causes a program dump and dumps 
the linked list disk file containing control cards and data. 

c. In response to the WM message, "{DEBUG)" will be printed after 
the RJE level . 

OPERATING THE DC 1000 

The following procedure, when executed properly, should enable the 
DC 1000 to operate as a remote controller. 

a. Power up - Accomplished by pressing the power on/off switch. 

NOTE 

A problem in the pcwer up sequence of some DC lOOO's 
(correction in progress) may result in failure to 
load the object program. If this occurs, let the 
DC 1000 set with power on for 2 to 5 minutes, then 
quickly power down and power back up again. 

b. Load papertape bootstrap loader. 

(1) Place the papertape binary loader into the teletype 
reader positioned at the first character. 

(2) Actuate the reset switch. 

(3) Actuate the auto bootstrap button. 

(^) The binary loader wilt read into the system. 

(5) Wait for all paper tape to be read. 

(6) The system is now set to load object program. 

c. Loading of object program. 

{I) Insert card deck in card reader. 

(2) Ready card reader. 

(3) Actuate the run switch. 

(^4) Wait for all of deck to be read. 

d. Actuate the step switch. 

e. Actuate the reset switch. 

f. Push clear display button. 
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g. Push P-register switch down, all others up. 

h. Load 1000 @ 16 in display. 

i . Push enter button. 

j . Actuate the run swi tch. 

MSCII 

COMPILATION INSTRUCTIONS 

MCSII may be compiled using tlie following control cards, where <l> is 
understood to mean an invalid character in column one: 

<l> REMOVE SYSTEM/MCSII; END. 

<1> COMPILE SY5TEM/MCS1I DCALGOL LIBRARY. 

<l> DCALGOL FILE TAPE (TITLE - SYMB0L/MC5 I I ) 

<l> EBCDIC 

5 MERGE 

(patch cards, i f any) 

<l> END 

EXECUTION INSTRUCTIONS 

Prior to any execution of MCS I I , or any MCS for that matter, it is 
required that the local data communications environment has been gener- 
ated via the use of NDL and DCPROGEN, such that the two files SYSTEM/ 
NIP and DC/CODE appear in the disl< directory. It is also required that 
the appropriate DCP(S) is (are) initialized from the console SPO via the 
"DC" input message. 

When the above prerequisites are met, the MCS may be initiated by any 
one of the following three methods: 

a. Introduction of a control card to the B 6700 system (via the 
console SPO, site card reader, etc.) containing: 

<l> EXECUTE SYSTEM/MCSI I; END. 

b. Opening of a file by an object job containing one or more 
stations controlled by MCSII. 

c. Any input from a station which is controlled by MCSII and for 
which '■ENABLEINPUT=TRUE" has been specified in the NDL 
description. 

CONTROL STATEMENTS (CS) 

Syntax: 

<CS bloclo ::= <CS> | <CS block>; <CS> 

<CS> ::= <attach statement> [ 

<broadcast statement> I <status request statement> ] 
<line status statement> | <alter statement> | 
<whoami statement' 1 <global monitor statement' 
<move statement' ] <swap statement' 
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Semantics : 

Entities may not be split across cards (if input is from the site card 
reader). <CS>s may be continued across record boundaries, but ail of a 
<station name> or syntactic entity must appear, complete, on the card 
on which it was begun. Control statements can be Input from the console 
S?0, site card reader, etc. 

The controi statements are described as follows: 
ATTACH STATEMENT 



<attach statement> : := ATTACH <statlon name> <attach status list> 

ATTACH <station OLS> <attach status list> 
<station name> : ;= {an NDL-defined station name} 
<attach status list> : := <empty> [ , <statU5 item> [ 

<attach status tist>, <status i tem> 
<station DLS> :;= DLS (<DCP number>, <line number>, 

<stat Ion number>) 
<status item> : := ENABLED j READ \ MONALL | MONERR 
<DCP number> : := <unslgned lnteger> 
<Iine number> ::= <unslgned integer> 
<station number> : := <unslgned integer> 

Examp les : 

ATTACH TVX/ONE, ENABLED, READY 

ATTACH DLS(0,6,0), ENABLED, MONALL, READY 



The <attach statement> Is the means by which MCSI I may be directed to 
perform attachment to one of its stations. 

The <attach statement> may specify the initial status of the station 
through the use of an optional <attach status Mst>. If "ENABLED" Is 
included as an <attach status I tem> and attachment Is successful, MCS I I 
will perform an explicit "ENABLE INPUT" DCWRtTE call for the station. 
If "ENABLED" is omitted as an <attach status I tem> and attachment Is 
successful, MCSI I will perform an explicit "DISABLE INPUT" DCWRITE call 
for the station, and then Issue a "READ-ONCE ONLY" DCWRITE call for the 
station. If "READY" is included as an <attach status I tem> and attach- 
ment Is successful, MCSII will perform an explicit "HAKE STATION READY/ 
NOT READY" DCWRITE call using a variant of zero (0) (ready), for the 
station. If "READY" Is omitted as an <attach status i tem> and attach- 
ment Is successful, MCSII will perform an explicit "MAKE STATION READY/ 
NOT READY" DCWRITE call, using a variant of one (l) (not ready) for the 
station. If "MONALL" Is included as an <attach status item> and attach- 
ment is successful, all station activity, MCS- Inl t iated , file open- 
initiated, OCP-ini ttated, errors, etc., will be monitored on a site 
line printer. If "MONALL" is omitted as an <attach status I tem> , then 
no monitoring of the activities of the station will take place unless 
global monitoring of all station activity has been invoked. If "MONERR" 
Is Included as an <attach status I tem> and attachment is successful, all 
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error messages pertaining to the station will be monitored. If "MONERR" 
is omitted as an <attach status i tem> , then no monitoring of the station 
errors will occur unless "MOKALL" (for the station) or global monitoring 
(for all stations) exists as monitoring options. 

BROADCAST STATEMENT 

Syntax: 

<broadcast statement> : := TO <destination list> <text> 
<destination list> : := <destination> 1 <destination list>, 

<dest ination> 
<text> ::= {any desired sequence of characters not beginning 

with a comma or a slash and not containing a semicolon} 
<desti nation> : := ALL j <station name> | 

<station DLS> | <station LSN> 
<station LSN> : := <unsigned integer> 

Examples : 



TO ALL SEND THIS TO ALL STATIONS 
TO DLS(0,6,3), nV/ONE, 2, k, TWXO 
CLOSING UP SHOP IN 5 MINUTES 



The <broadcast statement> affords the facility of "broadcasting" 
messages to any and all currently attached stations. 

All broadcast output is sent to the destination stations In the form: 

FROM <station name> (<station LSN>) : <text> 

If the <broadca5t statement^ was introduced to MCS I I via the site file 
"OPTIONS", then the broadcast output to the destination stations will 
appear in the fol lowi ng form: 

FROM SITE: <text> 

STATUS REQUEST STATEMENT 

Syntax: 

<status request statement> : := STATUS <station 1 0> | 
STATUS ALL 



STATUS DLS(0,1 ,3) 
STATUS ALL 



The <status request statement> provides the means for the site or a 

remote station to enquire of MCSM the current status of a station or 
al I Stat i ons . 
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LINE STATUS STATEMENT 

Syntax: 

<line status statement> : := LINES 
Example : 



DCP<DCP no.>, CLUSTER <cluster no.>, LINES 1, k, 15 ATTACHED 
Semanti cs : 

The <line status statement> will return a table giving the readiness and 
"attached" nature of all lines known to the MCS . 

ALTER STATEMENT 

Syntax: 

<atter statement> : := ALTER <station I D> <status change 1ist> 
<status change li5t> : := <status change> j 

<status change list>, <status change> 
<status change^ : := <status replacement list> = <state part> 
<status replacement li5t> : := <status i tem> ] 

<status replacement list> = 

<status item> 
<state part> : := TRUE | FALSE 

Examples : 



ALTER EGO ENABLED=TRUE 

ALTER SUPER/EGO ENABLED=READY=FALSE , MONALL=TRUE 



The <alter statement> allows the introduction of control information 
which will modify the current status of a currently-attached station. 

WHOAMI STATEMENT 

Syntax: 

<whoami statement> ::= WHOAMI 

Semanti cs : 

The <whoami statement> causes MCS I I to produce the identification of the 
source of the <whoami statement^ at that source. 
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GLOBAL MONITOR STATEMENT 

Syntax: 

<global monitor statement> : := MONITOR | STOP | DEBUG 

Semanti cs : 

The <giQbal monitor 5tatement> allows the control of monitoring of all 
data corranun teat ions activity. "MONITOR" will cause monitoring of all 
activity for all stations to commence. The introduction of "STOP" 
will cause monitoring of all activity for all stations to cease. "DEBUG" 
invokes more detailed monitor interpretation of station activity. (Ex- 
cept stations which are operating under "MONALL" and/or "MONERR"). 

MOVE STATEMENT 

Syntax: 

<move statement> : := <move DCP statement> | 

<move cluster statement> | 
<move station statement> 
<move DCP statement> : := MOVE DCP <DCP number> <ready part> 
<move cluster statement> : := MOVE CLUSTER (<DCP number>, 

<clu5ter number>) <ready part> 
<move station statement> : ;= MOVE STATION <station I D> <to part> 

<ready part> 
<ready part> : := READY | NOTREAOY 
<c1uster number>::= <unsigned integer> 

<5tation I0> ::= <station name> | <station DLS> | <station LSN> 
<to part> :;= TO (<OCP number> ,<cluster number> ,<adapter number^) | 

NULL 
<adapter number> : := <unsigned integer> 

Semanti cs : 

The <move DCP statement> will move all the clusters on the specified DCP 
to the NDL specified exchange DCP. The <move cluster statement> will 
move the specified cluster from the specified DCP to the NDL specified 
exchange DCP. The <move station statenient> may be used to add, subtract, 
or move a station from one line to another as specified in the MOVE/ADD/ 
SUBTRACT DCWRITE function (<to part> = NULL is equivalent to subtract). 

SWAP STATEMENT 

Syntax: 

<swap statement> : := <swap line statement> 

<swap line statement> : := SWAP (<DCP number> ,<cluster number> , 

<adapter number>) (<DCP number> .<cl uster 
number> ,<adapter number>) <ready part> 

Semant ics : 

The <swap statement> will cause the MCS to initiate a swap line request 

as per the specifications of OCALGOL. 
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SECTION 4 
SYSTEM MESSAGES AND DISPLAY 
OF STATUS 

INDEX OF SYSTEM MESSAGES 

SYSTEM INPUT MESSAGES 

A "+" indicates that tiie message contains syntactic items beside the 
mnemonic. A "-" indicates that the mnemonic alone Is a valid message. 

A (Active mix entries, +, -) ^-12 

ADM (Automatic Display Mode, +, -) ij-12 

AP (AutoPrint, +, -,) it-I3 

AX (Accept, +) it-13 

C (Completed mix entries, -) A-13 

CA (CountAnalyzer, -) A- 13 

CF (Copy Frequency, +, -) 4-13 

CI (change Intrinsics, +) 4-13 

CL (Clear, +) i(.]l, 

CLOSE (Close Pack, +) k-]H 

CM (Change MCP, +, -) I,-|i, 

CP (Control Program, +) ij-lii 

CS (change Supervisor, +) 4-14 

CU (Core Usage, +, -) lt-]i, 

OA (OumpAnalyzer, +, -) 4-15 

DC (DataCom initial! zati on, +, -) 4-15 

OD (Disl< Di rectorycopier, -) 4-15 

DIR (Di rectory, +, -) 4-I5 

DP (Dump, +, -) 4_]6 

DQ (Default Queue, +, -) 4-1^ 

DR (Date Reset, +) 4_]g 

OS (Discontinue, +) 4-17 

El (Emergency Interrupt, -) 4-17 

EP (Eliminate Print queue, +) 4-I7 

EQ (El iminate Queue, +) 4-17 

PM (Form Message, +) 4-17 

FORM (Form designation, +) 4-18 

FR (Final Reel , +) 4_lS 

HI (cause except ion event, +) 4-18 

IL (Ignore Label , +) 4-] 8 

IV ( Ini tial ize and Verify pack, +) 4_l8 

J (Job Structure, +, -) 4-19 

LC (Log Comment, +) 4-I5 

LO (Load Control Decks, +, -) 4-ig 

LOG (Log, +, -) 4-15 

LR (Log Release, -) 4-lg 

MC (Make Compiler, +) 4-ig 

MIX (Mix entries, +, -) 4-20 

MM (Memory Module Status , -) 4-20 

MQ (Make Queue, +) 4-20 

MSG (print Messages , -) 4-20 

MU (Make User, +) 4-20 

OF (Optional File, +) 4-21 

OG (Overlay Goal , +, -) 4-21 

OK (job reactivation, +) 4-21 
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OL (label table, +) J,_2J 

OT (stack cell Inspection, +} h-2] 

OU (Other Unit type, +) 1,-22 

PB (Print Backup, +) 4_22 

PC (Print Configuration, -) 't-ZZ 

PD (Print Directory, +) i,_22 

PER (Peripheral Status, +, -) 1,_23 

PG (Purge unit, +) 4_23 

PGL (Purge and Lock un i t , +) i,_23 

Pt (print pi, -) i,_23 

PO (Power Off pack, +) 1,_23 

PQ (Purge Queued jobs, +) i(-23 

PR (change Priority, +) i,_23 

PU (make Privileged User, +) Z,_2i( 

QF (print Queue Factors, +) U-2k 

QJ (Quit, +) i,_2if 

RC (Reconfigure pack, +) l,_2ii 

REHOTESPO (+) ^^_2i^ 

RES (Reserve disk, +) ^-25 

RESTORE (Restore jobs, +) i,.25 

RET (Return disk, +) i,_26 

RF (Reliability Factor, +) i,-26 

RH (Remove old file, +) i,_26 

RO (Reset Option, +, -) 4_27 

RR (Release Reader, +) 4-27 

RW (Rewind tape, +) i,_27 

RY (Ready unit, +) ^.2y 

S (Scheduled mix entries, -) tt-zB 

SCR (System Confidence Routine, +) 1,-28 

SF (Set Factor, +, -) 1,_28 

SH (Send to MCS , +) t,_28 

SN (Set Serial Number, +) 4-28 

SNL (Set Serial Number and Lock, +) l(-28 

SO (Set Option, +, -) l,_2g 

SP (Show Print queue, -) 1,-29 

SQ (Show Queued jobs, +, -) 4-29 

SR (Secure Reader, +) 4-29 

SS (Send to Station, +) 1,-3q 

ST (Suspend Task, +) i,-3Q 

SUPPRESS (Suppress jobs , +) 4-3O 

SV (Save unit, +) 1,_3q 

SW (run Swapper, -) 4-30 

TERM (Terminal format, +) 4-3I 

TF (Type Factors, -) 4-3) 

Tl (Times, +) 1,-3] 

TO (Test Option, +, -) 1,-32 

TR (Time Reset, +) 1,-32 

UA (Unit Available, +) 1,-32 

UL (Unlabeled unit, +) 1,-33 

UR (Unit Reserved, +) 1,-33 

US (Use genealogy, +) 4-33 
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W (Wa i t i ng m i X ent r i es , - ) ^-33 

WD (What Date, -) 4-33 

Wl (What Intrinsics, -) 4-33 

WM (What HCP, -) k-3ll 

W5 (What Supervisor, -) I1-3I1 

Wr (What Time, -) 4-34 

XD (bad disit, +) 4-34 

XS (express, +) 4-34 

77CH (Change MCP, +, -) 4-35 

7?DP (Dump, -) 4-35 

??EI (Emergency interrupt, -) 4-35 

77RJ (Retype JOBDESCFiLE, -) 4-35 

SYSTEM OUTPUT MESSAGES 



RSVP MESSAGES 



ACCEPT {accept data) i(-38 

<nnnn> DiSK SEGMENTS REQUiRED I,. 38 

DUP FIL <file data> l,.,, 

DUP LIBRARY <file label> 4.30 

«iC 20(2ERO) 30(nnnnn); liHF START I,.39 

iNTRiNSiCS FILE REQUiRED 11-39 

LP, PBT MT RQD <fiie Iabei> <rdo : <job nanie> 1,-39 

LP RCID <file tabei> <rdo : <job name> 4-39 

MAG TAPE REQU i RED i,-ll() 

NO FILE <flie iabei> 1,-1,0 

NO MEM 1,-1,5 

NO SCRATCH PRINTERS |,.1,q 

NULL LP TABLE 1,-1,q 

OPERATOR STOPPED 1,-1,1 

PBT MT RQD <file labei> <rdc> 1 <job name> 1,-1,1 

PP RQD <fiie Iabei> <rdo : <job name> 1,-1,1 

<uni t mnemonio READ CHECK 1,-1,^ 

RECOPY REQD : <flle ld> 1,-1,1 

<file labe]> REQUIRES <unit mnemonio 1,-1,1 

REQUIRES FM {user message of 25 characters or less} 1,-1,] 

REQUIRES SC 1,-1,1 

*<n> SECT REQ ON PK <nnn> 1,-1,, 

*<nnnnnn> ICUSS <nnn>] SEGMENTS REQUIRED 1,-1,2 

WAITING FOR HEADER SPACE 1,-1,2 

<nnnn> WORDS REQUIRED 1,-1,2 

SYSTEM MESSAGES 

*<flle ld> ALREADY OPEN <teniilnal reference> 1,-1,3 

AN INTEGER WAS EXPECTED 4-43 

*ASSIGN OP REQD <terminai reference> 4-1,3 

*BAD LI BRARY TAPE 4-43 

*8AD RESIZE/DEALLOCATE <terminai reference 1,-43 

*<unit mnemonio BEGIN OR END OF TAPE 4-1,3 

*<flle id> BREAK ON OUTPUT <teniiinai reference 4-43 
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*<file Id> BLOCK CNT ERR < terminal reference> ^4-43 

*<job name> @ <priorIty BOJ> k-kk 

*<compiler name> <job nanie> @ <priority> BOJ ii-hk 

*<un i t mnemon i o BUSY k-kh 

<fne label> CHANGED TO <fne label> i,-i,l, 

«CHPLX>HA)(REAL <temiinal referen<;e> l,-i,l, 

COHP I LER NAME NOT FOUND 1,.1,1, 

CONTROL CARD ERROR <uni t mnemon io i4-i,i, 

{information from control card) i,_i,jj 

*<file label> COPIED i,.I,l, 

«CORE NOT AVAILABLE i,.!,!, 

CP RQD <fi!e 1abel> <rdo : <job name> A-^S 

*<file id> CREATED 1,-45 

*CRiTlCAL BLOCK EXIT <tenninal reference> 4-1,5 

"* 4-1.5 

*<file id> DATA ER NO LABL <terniinal reference> l,-i,5 

DATACOM REQUESTED 1,-1,5 

*DATA NAMELIST <terminal reference> 1,-1,5 

DCP <nnn> INITIALIZED 1,-1,6 

DCP <nnn> NOT ON LINE 1,-1,6 

DCP <nnn> RUNN I NG 1,-46 

*DEATH IN THE FAMILY <teniilnal referenoe> 4-46 

DECAY = <unsigned integer> % 4-46 

DECK <inte9er> REMOVED 4-46 

DECREMENT = <unsigned integer> % 4-46 

*<unlt mnemonlo DESCR. ERR 4-46 

DESIRED - <unsigned integer>/MINUTE 4-46 

'DIMENSION SIZE ERROR I - J <terminal reference 4-47 

DIRECTORY DAMAGED 4-47 

DISK ADDRESS ERROR 4-47 

Disk Pack - Input Command Messages k-kl 

DISK PARITY ON LIBRARY MAINTENANCE 4-47 

DIV BY ZERO BRANCH <job name> , <termlnal reference> 4-47 

DK ERR RD = <nnnnn> UNIT <nnn> , SEG = <nnnnnn> 4-48 

*<program id> DSED <terminal reference> 4-48 

DUMP WAS BY : <cause of dunip> 4-48 

EOT NO LABEL <flle ]abel> : <job name> , <termlnal reference> .. 4-48 

*<uni t mnemonic> ERR RD = <resul t descriptor> 4-48 

<unit mnemonic> ERROR - RW/L 4-48 

*<flle ld> EXCEEDED TIME LIMIT <termlnal reference> 4-48 

<file label> EXPIRED 4-48 

EXPON OVRFLW BRANCH <job name> , <terminal reference> 4-48 

FACTOR - <unsigned integer> % 4-43 

<unit mnemonlo <i/0 operation> FAILURE - D <lnteger> 4-49 

*FAULT OF BAD TASK ATTRIBUTE <termlnal reference> 4-4g 

*G01NG AWAY <termlnal reference> 4-49 

INACTIVE QUEUE <termlnal reference> 4-49 

I NCOMPAT I BLE LEVEL 4-49 

*ILLEGAL COMPILER <termlnat reference> 4-49 

'ILLEGAL VISIT <termlnal reference> 4-49 

INCREMENT = <un5igned integer> % 4-5O 

*<unlt mnemonlo INCOMPLETE RECORD 4-5O 

•INCORRECT SYNTAX <terminal reference> 4-5O 
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'INITIATE ACTIVE TASK <termlnal reference> 4-50 

*INSTR TIMEOUT <teniiina1 referen<;e> lt-50 

Interprogram Communication (IPC) Messages it-50 

INTGR OVERFLW BRANCH <job name> , <termlnal reference> 4-51 

<unlt mnemonio IN USE <job id> 4-51 

INTRINSIC FILE NOT LOADED 4-51 

*<un it mnemonio INVALID CHR. INCOL. <nr> 4-51 

INVALID EOJ <job name>, <termlnal reference> 4-51 

INVALID INDEX BRANCH <job name> , <terminal reference> 4-51 

♦INVALID SYSTEM/USEROATAFILE 4-51 

<flle label> INVALID UNIT 4-52 

INV KBD {typed-In information} 4-52 

<unlt mnemonio INV MEM ADR 4-52 

*I0 ERROR READING TAPE DIRECTORY 4-52 

*I0 ERR POSITIONING TAPE SOURCE 4-52 

*l/0 ERROR ON SYSTEM/USERDATAFILE 4-52 

<unlt mnemonio I/O MEM PAR 4-52 

<unit mnemonio IRRECOVERABLE WR PARITY 4-52 

*<d i sl< un 1 1> IS ON L I NE 4-52 

NOT READY 
READY 

Label Equation Errors 4-53 

Library Maintenance Error Messages 4-53 

<flle label> LIBRARY MAINTENANCE IGNORED 4-53 

<filename> (LOADED) 4-53 

LOG <integer> % FULL 4-53 

LOG 95* FULL - AUTOMATIC LR 4-54 

<unlt mnemonio LOU ON PAPER TAPE 4-54 

LP, PBT MT RQD <file label> <rdc> : <job name> 4-54 

LP RQD <file label> <rdc> : <job name> 4-54 

MAXIMUM = <unslgned Integer> % 4-54 

MAXIMUM PSEUDOREADERS = <Integer> 4-54 

MAX COPIES OF AUTOPRINT - <integer> 4-54 

*HAX SL I CE NUMBER NOT VAL I D 4-54 

MCP CHANGE ABORTED (NOT ON DISK) 4-54 

MCP CHANGE ABORTED (NOT ESPOL CODE) 4-54 

MCP CHANGE PENDING 4-55 

*<un i t mnemon I o MEMORY ACCESS ERROR 4-55 

MEMORY MODULES <ready memory llst> READY 4-55 

<unit mnemonIc> HEM PROTECT ERR 4-55 

MINIMUM = <unslgned integer> % 4-55 

*MIN TIME SLICE NOT VALID 4-55 

*HISSING ROW 4-55 

*H00# <nn> NOT READIED : <msg> 4-56 

MAX PARITY ERROR 4-56 

MT RQD <fiie label> <rdc> : <job namc> 4-56 

NAMELIST Errors 4-56 

ANAME READONLY ON ACTIVE TASK <termlnal raference> 4-56 

NEW MCP PB ON <unlt mnemonio 4-56 

<unlt mnemonio NEW PBT 4-56 

NO ACCESS TO EXCHANGE 4-57 

NO DCP CODE 4-57 

NO FILE <vol id> / FILEOOO 4-57 
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NO FILES ADDED 

NO FILES COPIED 

NO VAL I D CHARACTER 

NO NDL DESCR 

*NON ANCESTRAL EXCEPTIONEVENT <termlnal reference> 
*NON EXECUTABLE CODE FILE <termlnal refererco ... 
*NON-EXTERNAL RUN <teriiilnal reference 



A-S? 

'•-57 

11-57 

'.-57 

ii-S? 

'l-S? 

*NOT ALLOWED - SWAPSPACE <termlnal referetlce> ...'!'.."" I'll 

<flle label> NOT CHANGED (NOT ON DISK) J il 

<flle Iabel> NOT CHANGED (SYSTEM FILE) L?S 

<fne label> NOT COPIED - DIRECTORY '" Leg 

<flle label> NOT COPIED — NOT ON <tape or dlsk> '.'..'.'.'." u It 

<flle label> NOT IN DIRECTORY 7 iX 

<pro9ram l(i> NOT IN DIRECTORY Tit 

<fl1e name> (NOT LOADED) 2 Jo 

*<dcp nuiiiber> NOT ON LINE , ," i *g 

*<unlt rnnemonlo NOT READY '_',',', J^ 

<unit mnemonIc> NOT READY EU t cq 

<file label> NOT REMOVED (NOT ON DISK) '.'. Tii 

<fl1e label> NOT REMOVED (SECURITY ERROR) I „ 

<fne label> NOT REMOVED (SYSTEM FILE) i — 

*NU«BER REQD <te™inal reference J.c, 

*<unlt mnemonio OUT OF PAPER l cq 

*OUT OF SWAP DISK '. Til 

•PARAMETER MISMATCH <teniilnal reference> ......'..'. TAl 

*<unlt mnemonic> PARITY 7 „ 

PARITY ON <unlt mnemonio .....[..]........ I'S 

<flle id> PAR ON POSITION <teniilnsl reference> '.'.'.. I'i!, 

*PIC <nnn> DIRECTORY DAMAGED 2 Ti 

•PROCESSOR <n> (ON/OFF) LINE ','..'. T?" 

*<unlt mnemonio PUNCH CHECK 7.?^ 

*<unlt mnemonio PURGED ^ 71 

*<flle id> OTED : BAD DATA '.'.'.'.'.['.'.'.'.'.'.'.W'. T^ 

RANGE - <unslgned integer- * 2.?^ 

READ ERROR FOR {control card Information) t to 

<unlt mnemonio READ PARITY t fl 

RECONSTRUCTION DATA ERROR ' 7 «1 

RECORD SEQUENCE ERROR " 7 5 

<file label> REMOVED 7 ? 

RESERVE Error Messages '.] 7 ? 

<tape label> RET 7 ? 

<dcp number> RUNNING ',,'/, J.?' 

<un i t mnemon I o RW/L Ji-A? 

<un i t mnemon i c> SAVED r g_ 

♦SCAN PARITY <termlnal reference> ...!..'...'! I'.ti 

<unlt mnemonio SCRATCH l g, 

•SEQUENCE ERROR <terminal reference '..'.'.'.'.'" Tl, 

•SET CONDITIONAL HALT SWITCH FOR CPU <n> 7 It 

•SLICING RATIO NOT VALID Tl' 

*<unlt mnemon I c> SN REQUIRED i ,, 

•STACK BOTTOM ERR <termlnal reference 7_?, 

STACK PARITY 7 ?, 

SU NOT AVAILABLE .]..........'. Jljj 
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*SWAPCORE NOT VAL I D ll-63 

*SWAPOISK NOT VALID 11-63 

*SYSTEM/USERDATAFILE IS FULL 4-63 

*SYSTEM/SUAPDISK NOT THERE 11-63 

TAPE D I RECTORY NOT FOUND 4-63 

<unit mnemonio TO BE SAVED 4-63 

UNEXPECTED TAPE DIRECTORY 4-63 

UNIMPLEHENTED CONSTRUCT 4-63 

»<unlt mnemonio UNIT NOT READY 4-63 

*UP LEVEL TASK ASSIGNMENT 4-64 

♦VALIDITY CHECK FAILURE 4-64 

*VISIT NONACTIVE TASK 4-64 

*<unlt mnemonio WRITE ERROR 4-64 

*<unlt mnemonio WRITE PARITY ERROR 4-64 

JOB ORIENTED MESSAGES 

<f lie name> ADDED 4-65 

•ARRAY TOO LARGE <tennlna1 reference> 4-65 

Disk Pack Error Messages 4-65 

•DISPLAY : {25 characters of text) 4-65 

•DIVIDE BY ZERO <teniilnal reference> 4-65 

*<flle Id> EOF NO LABEL <termlnal reference> 4-65 

*<job name> 6 <prlorIty> * EOJ 4-65 

*<compiIer nane> <job name> g <priority> * EOJ 4-66 

•EXCEPT I ONEVENT IS READONLY <termlnal reference> 4-66 

•EXCHANGE ABORTED - UNEttUAL ROW S I 2ES 4-66 

•EXC I/O TIME <termlnal reference> 4-66 

•EXC PROC TIME <termlnal reference> 4-66 

•EXPON OVERFLOW <tennlnal reference> 4-66 

•EXPON UNDERFLOW <termlnal reference> 4-66 

FILE CLOSE Errors 4-66 

*<fne id> FILE NOT OPEN <termlnal reference> 4-67 

FILE OPEN Errors 4-67 

•ID EXPECTED <termlnal reference> 4-68 

•ILLEGAL BAD GO TO <termlnal reference> 4-68 

•ILLEGAL OWN ARRAY <termlnal reference> 4-68 

<job id> ILLEGAL SWAP <teniilnal reference> 4-68 

•ILLEGAL VISIT <termlnal reference> 4-68 

•<fMe l<i> INCOMPATBLKING <termlnal reference> 4-68 

•INCORRECT SYNTAX <termlnal reference 4-68 

•INITIATE ACTIVE TASK <termlnal reference> 4-68 

•INTGR OVERFLOW <termlnal reference> 4-69 

•INTRINSIC <lntrlnslc number> MISSING 4-69 

•INV ADDRESS <terminal reference> 4-69 

INVALID ADDRESS 4-69 

INVALID ARGUMENT TO A MATHEMATICAL INTRINSIC FUNCTION 4-69 

*<unlt mnenBnIo INVALID CHR. IN COL. <lnteger> 4-70 

•INV INDEX <termlnal reference> 4-70 

•INV PROG SYL <termlnal reference> 4-70 

•INVLD ASTERISK <termlnal reference> 4-70 

•INVLD EXPONENT <teniilnal reference> 4-70 

•INVLD INDEX <termlnal reference> 4-70 
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*INVLD LT PAREN <terralnal reference I1.7O 

«INVLD NUHTYPE <terminal reference> 1,_70 

*INVLD RPT FLD <tentilnal reference> J4-70 

*INVLD SIGN <terminal reference> 4_7q 

*INVLD SUBSCRIPT <termrna1 reference> i,.7Q 

*INVLD VARIABLE <terminal reference> I,_70 

*INV OPERATOR <terTninal reference> 4_7q 

«<file id> INV OPN OUT REV <terminal reference 4.70 

*<flle Id> INV PER LBLESTN <terminal reference> 4-70 

*<f\\e ld> INV TRANSLATION <terminal reference> 1,.70 

*<file ld> 10 ERROR IN CLOSE <temiinal reference> 4-71 

*I0 ERROR READING DISKHDR FROM TAPE I,_72 

I/O Errors 4-72 

*I0 ERROR WRITING DISKHDR TO DEST [n] 4.73 

*IOTIME IS READONLY <termlnal reference* 4.73 

'IRRECOVERABLE PARITY ERR DURING COPY ON DEST [n] 4.73 

-*- I ODCr/UfCDBD I r flABITU rnn Minliif ^nnvy nil fAiini-i- * 



'IRRECOVERABLE PARITY ERR DURING COPY ON SOURCE 



'.-73 



*IRRECOVERABLE PARITY ERROR ON DIRECTORY FOR DEST In] 4.73 

{Item on control card) IS APPARENTLY MISSPELLED 4.73 

{reserved word} IS USED IMPROPERLY 4.73 

*LIST EXCEEDS REC SZ <terroinal reference* 4-73 

Logical I/O Errors 4.74 

*MEMORY EXCEEDED <termlna1 reference* 4-74 

*MEMORY PARITY <terminal reference* 4-74 

♦MEMORY PROTECT <terniinal reference* 4.74 

♦MISSING CODE FILE <teriiilnal reference* 4.74 

MSG SIZE ERROR 4.75 

*MUST BE CODE FILE <teniiinal reference* 4-75 

NAMELIST Errors 4-75 

*NEW INPUT ON <unlt specifier* 4.7? 

*NEW OUTPUT ON <unlt specifier* 4.75 

»N0 FILE <file label* : 4.7? 

«NON ANCESTRAL EXCEPTIONEVENT <terniinal reference* 4.75 

*NON-EXTERNAL RUN <teriiiinai reference* 4.75 

*<procedure name* NOT BOUND <terminai reference* 4-76 

*NUM INTEGER <terTT!lnal reference* 4.75 

«NVLD CW-UNFORMATTED IO<termlnai reference* 4-76 

♦OPERATOR DSEO <terminal reference* 4-76 

♦OPERATOR LIST REQD <terminal reference* 4-75 

♦OUTPUT LIST TOO LONG <termlnal reference* 4-75 

♦<file id* PARITY ON LABEL <terminal reference* 4-75 

♦PARITY ON PRESENCE BIT <terminat reference* 4-76 

♦<flle id* PAR NO LABEL <terminal reference* 4-77 

♦PRGMD OP ERR <terminal reference* , 4-77 

♦PRINT LIMIT EXCEEDED <terminal reference* 4-77 

♦PROCESSTIME IS READONLY <terminal reference* 4-77 

♦PUNCH LIMIT EXCEEDED <terminal reference* 4-77 

♦QUEUE ATTR I BUTE ERR : <n* 4-77 

♦<fiie id* READ AFTER EOF <terminal reference* 4-77 

♦<file Id* READ BEFORE OPEN <terminai reference* 4,78 

READONLY TASK ATTRIBUTE 4-78 

♦RT PAREN REQD <termlnal reference* 4-78 

♦<job Id* @ <priorIty* <core requirement* SCHD 4-78 
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*SEG ARRAY ERR <termlnal referenco Jt-yg 

SELECT ERROR <fI1e Iabel> : <job name> , <teniilnal reference> ... i,_7g 

<job id> SORT ERROR # <Integer> DSED @ <terminal reference> jj-yg 

*<compiler name> <job name> @ <priority> * SNTX J4-8O 

*<job Id> SNTX <nn> @ <sequence number> i(-8o 

*STACKNO IS READONLY <terminal referenco 1,-80 

*STACK OVERFLOW <tenninal reference> 4-80 

*STACK UNDERFLOW <teriiilnal referenco I4-80 

*STARTTIME IS READONLY <tennlnal reference> 14-80 

*ST0PP0INT STORED <terminal reference> 1,-80 

*SUSPENDE0 BY SYSTEM 1,-80 

*TASKTYPE IS READONLY <terminal reference> 1,-80 

*<file id> UNMATCHED GENEALOGY <terminal referenco 1,-80 

*UP LEVEL ATTACH <teniilnal reference> 1,-81 

*VISIT NONACTIVE TASK <termin3l reference> 1,-81 

4<flle ld> WRIT BEFOR OPEN <terininal reference> 1,-81 

*<unlt mnemonIc> WRITE LOCKOUT 1,-81 
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SYSTEM INPUT MESSAGES 
SYNTAX CONVENTIONS 

The syntax of each input message described in this section is displayed 
via the following notation. The device employed here is the syntax 
diagram constructed of words formed of upper- and lower-case letters, 
arrows, special characters, and digits. The basic rule is that any path 
traced along the forward directions of the arrows will produce a syn- 
tactically valid statement. All words formed of upper-case letters 
(except EBCDIC) and all special characters (I.e., coinnas, colons, hyphens, 
slashes, etc.) in the diagram must appear in the message as shown; all 
words formed of lower-case letters are syntactic variables representing 
user-supplied constructs. Any "bridge" over a digit, such as: 



-4^- 



may be traversed a maximum number of times specified by the digit (e.g., 
\k times in this example). 

The syntactic variable "number" denotes the appearance of an appropriate 
unsigned integer constant. The variable "det im" represents a blanic or 
any special characters. 

NOTE 

For a detailed explanation of the input 
messages, refer to WORK FLOW HANAGEHENT 
USER'S GUIDE . Form No. 50007H , dated 
16 April 1973 - 

MISCELLANEOUS DEFINITIONS 

The following items appear as syntactic variables in the message syntax 
diagrams: 



• filename 



-^T?v_ 




y nonquote EBCDIC characte 



Hir 
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mix number 



mix number 1 i st 



-♦■mix number — 
number - 



-] — »■ mix 1 
I — ^ mix I 



-any EBCDIC character - 



The following synonyms are permitted: 

TAPE => HT 
DISK - DK 
SPO - SC 

PRINTER - LP 
READER =■ CR 
PACK = PK 



unit number 



— »■ niunber ■ 



PRINTED IN U.S. AMERICA 
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un i t number 1 i st 



I 



unit number - 



- unit number 



MESSAGE SYNTAX 

The following paragraphs discuss the available B 6700 SYSTEM INPUT 
messages. A syntax diagram describing the form of each message precedes 

the discussion of that message. 



U 



Lists all active jobs and tasks. Displays any active suppressed 
jobs or tasks when ALL is used. 



-»ST H 

-^OK ^ 



i:.' 



T-=- — LINES-J 



L....C.J 



L EVENT —J 



" LDU.A,i..^„J 



*■ DELAY ^ nUMbcr -^ 



Allows a supervisory console to be placed in an automatic 
display mode of mix and system status displays. 
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—•-unit number- 



Allows the number of printers and punches to be used for the 
automatic output of backup files to be specified. 



^)( ^ mix number list- 



mix number - 



':ir 



Used to input text for a programmatic ACCEPT operation. 



Lists the most recently completed jobs and tasks. 



Causes execution of SYSTEM/COUNTANALYZER program. 



1 number 



Specifies disk directory copy frequency, 
CI p. filename 



Used to load a new intrlnsics stack. 



PRINTED IN U.S. AMERICA 
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CL 1— ^ devil 



— ^ unit number list - 



Allows a peripheral unit to be cleared. 



CLOSE ^ PK »■ unit number list- 



On a split system, CLOSE performs the same operations as the 
PO message except that the pack becomes unavailable for that 
system. 



Allows a change to a new HCP. 



CP -1 ^T^-filename ■ — •-'— 



Designates a code file as a control program. 
CS T r*-f ilenarae 



TIT 



Designates a code file as a supervisor program. 



mix number list - 



mix number - 



Provides Information regarding job or system core usage. 



PRINTED IN U.S. AMERICA 
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' — »-unit number ' 



Causes execution of SYSTEM/DUMPANALYZER program. 



"■identifier- 



Provides for initiation of a DCP. 



Initiates a directory copy operation. 




Yields a directory of head-per-track or disk pack files- 



PRINTED IN U.S. AMERICA 
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non-numeric text - 
-^ mix number list — 



Mix number DP - 



-*- ALL — 
-*- NONE — 
~*^ BASE — 
-^ ARRAY - 
-*- FILE — 
-^ CODE — 
-► DSED — 



' »■ number ' 

initiates a program or memory dump. 



Assigns a queue as the system default queue. 



Resets the current date used by the MCP. 



PRINTED IN U.S. AMERICA 
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— ^ mix number list- 



Mix number ^ DS - 



- NONE — 

- BASE — 
• ARRAY - 

- FILE — 
•■ CODE — 



I »■ number — ^ — I 



Terminates the execution of a job. 



Allows suspension of normal selection of jobs for execution 



Causes any job files waiting to be printed to be discarded 
if AUTOPRINT is not active. In effect, job summary will 
not be printed. 



Causes the job queue identified by the number to be eliminated 

from system. 



FM »■ mix number - 

mix number »■ Fl 



T' 



Directs program output to a device readied in response to 
a FORMMESSAGE request. 
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— *-unit number - 



■■ string 1 



Names a printer with the specified string to be used in 
conjunction with the FOWWESSAGE file attribute. 



FR »-inix number - 

nix nunber list 



Indicates to the system the final reel of an unlabeled tape 
file or terminates a COPY/COMPARE on that tape unit. 



mix number list - 



mix numbe 



.^. r:n 



Allows the EXCEPTIONEVENT of a running stacl< to be caused. 



mix number 



mix nunber - 



»unit number_ 



Assigns an input file to a program with the label ignored. 




Allows the initialization of a disk pack. 



PRINTED IN U.S. AMERICA 
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U_* ALL 1 



Causes the display of tasks {active, waiting, and scheduled) 
by job structure. 



Enters a conment into a job or summary log. 



Allows a group of job control decks to be copied to a 
tape, or read from a tape. 



I *■ parameters ' 



Causes SYSTEM/L0GANALY2ER program to be entered Into 
mix and executed. 



Generates an empty sunmary and/or maintenance log. 



♦■ filename - 



"^ I * 

Designates a code file as a compiler code file. 



PRINTED IN U.S. AMERICA 
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Yields a display of the current job mix. 



MM- 



Yields a list of ready memory modules. 
MO"^ number 



-'T^MIXLIMIT 

-iTV TURNAROUND — 

-'T^DEFAULTS t^(- 

-/TVlimits— J 



- realnumber- 



■^1^-^ PRIORITY - 
/TV^IOTIME 



■'l^-»-PROCESSTIMEi 

/]>-•. LINES 1 

/TV*. CARDS 1 



X,J 



Creates a job queue and allows the attributes of that 
queue to be specified. 



Yields a display of the most recently produced system 
output messages. 



— ^ Identifier - 



- ( — ^ identifier — ►) ' 



/ — T-* identifier- 



AIlows an identifier to be recognized as a valid usercode. 
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OF ^ mix number Xist- 

nix number » OF 



Indicates that an optional Input file sought by a program 
is not present. 



l— ^ mix number list 1 — 



mix number - 



Allows the OVERLAYGOAL for a specific job to be altered. 



OK »-nix number list - 

mix number *-0K 



Results in the reactivation of a suspended job. 



it number list - 



Yields a display of the label table for the indicated 
peripheral devices . 



mix number - 
mix number - 



Yields a display of the current contents of the indicated 
cell of the specified running stack. 
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mix number list - 



'— ». unit number — »■ 



Dispatches output to a backup tape or disk file when an 
LP REQD, CP REQD, or FM REUD condition occurs; also may 
assign output to a locked or scratch tape when an MT REQD 
condition occurs. 



I — p_^MT — 
I — »■ mix 1 



Causes a backup tape or disk file to be printed or punched. 



Yields a display of current system configuration and 
software status. 



"^73: 



r:3 



Yields a display or listing of specific files on head- 
per-track disk. 
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' — ^device ' ^ ' 



Yields information regarding the current status of the 
indicated peripheral devices. 



PO — 1 r ■»■ HT T »- unit number list- 

POL J U-PK 1 



Purges (and optionally locks) specified tape units. 



Yields a display of the approximate value of V. 



PO ► PK »-unit number list - 



Requests permission from the system to power-off the 
indicated disk pack. 



PO »■ number - 



Removes all jobs from a queue while leaving the queue 

intact. 



PR •■ mix number list - 

mix number ^ PR 



Allows the priority of the indicated job to be altered. 
PRINTED IN U.S. AMERICA 5000722 
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— ^ identifier - 



/ — j-»- identifier - 



- identifier 

—». identifier - 



:,T' 



Causes a usercode to be recognized as a privileged user. 



Yields a display of the current state of all attributes 
associated with the indicated job queue. 



OT ^ mix number list - 

■ ix number »- QT 



Terminates the output of a backup file without removing 
that file from the directory. 



RC »-PK ^unit number 




NAME — » = packnaBG -* 

SERIAL -^ " integer — ■ 

m- = Integer — ■ 



Used to label or relabel a disk pack. 



REMOTESPO 



n 



■^station name - 



Names a datacom station to be used for operator control 
of the system. 
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- number >-»- THRU, 



TTHRU, r» 
1*-SU*| 
FOR 1 



H r-- ' -*- number 

' ^ niinber -i — 



niinber -i — THRU- 



i 



•♦ SWITCH-* 



» SEGMENT — ^number 



IT" 



►-AS ALTERNATE - 



Allows the removal of a portion of the head-per-track 
disk subsystem from the system, marking it as an IAD 
or BADDISK file. 



Causes the indicated suppressed active job to be Included 
In the job mix display. 
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-DK unit numbe 



1— SU -tJ* n- 



iizr 



1—* number — |-*-FOB 






J 



-SWITCH—, — V number 




number T-»- FOR 



rFOR J— 
THBUt •"!-* 1 

LsWITCH-J 



*- number— J 



Allows a reserved portion of the head-per-track disk 
subsystem to be returned to the system. 



Causes the current reliability factor of a peripheral 
unit to be displayed. 



RM »-mix number - 

mix number 



Removes the older of the two disk files when a DUP 
LIBRARY condition occurs. 
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n. 



- AUTORECOVERY — 
-DUPSUPERVISOR- 
-DUPINTRINSICS- 
■- RECO>fDUMP 

- AUTODC 

- NODUMP 

- CPBDONLY 



Allows run-time system options to be reset or yields a 
display of all options that are currently reset. 



RR ^CR »-unit number - 



Removes security restrictions from the indicated card 
reader. 



it number list - 



Rewinds and loclts the indicated tape unit. 



— t- * ^ device - 



•■ HOD 
-CPU 



IT 



- unit number list - 
-unit number 



Causes the Indicated devices to be made ready for use 
by the system. 
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Causes scheduled tasks, which are not in Job queues, 
to be di splayed. 



• mat program - 



Allows a MAT program to be input from the supervisory 
console. 



'i^ »- 1 •-number — 

/r\ ». 2 »■ number - 

■^1^ »■ 3 fc- number - 



Allows the setting and testing of the memory management 
parameters. 



SM »-Bix number list 

mix number -^ SU 



>■ control command ~ 



Allows a control conmand to be directed at an executing 
MCS. 



n 



SN r— «T- 

SNl- 



> unit nunber— 



Assigns a serial number to (and optionai iy locl^s) the 
indicated tape unit. 



PRINTED IN U.S. AMERICA 



S000722 



B 6700 / B 7700 SYSTEM SORWARI HANDBOOK '<-^S 



SYSTEM INPUT MESSAGES 



•■ number 

- OPEN 

■■ TERMINATE - 
•-CHECK 



-DIAGNOSTICS 

-CDONLY 

- AUTORECOVEBY — 

- DUPS UPERV I SOR - 
-DUPINTBINSICS- 

■- RECONDUMP 

-AUTODC 

- NODUMP 

- CPBDQNLY 



Allows run-time system options to be set or yields 
a display of all options that are currently set. 



Shows which job files are waiting to be printed. 



n: 



i:: 



I 



Yields information regarding the contents of one or 
all of the system job queues. 



it number list - 



imposes security restrictions upon the indicated card 
reader, causing it to reject all decks not preceded by 
a USER control card. 
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identifier- 
number 



Allows a message to be sent from the supervisory console 
to a remote terminal operating under control of an MCS. 



ST *- mix number list - 

mix number ^ ST — 



Causes the temporary suspension of the execution of the 
indicated job. 



— »■ mix number list - 



Causes the indicated active job to be suppressed from 
the job mix display. 



■*-•■ device m- unit number list - 

—^ HOD T »-unit number 

— » CPU 1 



Causes a unit to be made Inaccessible to the system. 



Initiates code swapping between core memory and swap- 
area disk by the SWAPPER independent runner. 
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I »- LINES T— 

» WIDTH H 

^ FIRST J 



E- NONE B> 
CONCISE *■ 
EXPANDED — *■ 



Controls supervisory console display format. 



Yields display of the current setting of the three 
menxsry management parameters. 



— ^ mix number list - 



mix number - 



Yields display of elapsed system use times associated 
with the Indicated job. 
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TO-E 



- TERMINATE - 



- AUTORECOVERY — 

- DUPSUPERVISOR- 

- DUPINTRINSICS - 

- RECONDUHP 

- AUTODC 

- NODUMP 

- CPBDONLY 



Allows the current state of any or all of the fiftei 
run-time system options to be checked. 



Resets the current time-of-day In use by the MCP. The 
desired time is given as a four-digit integer, the first 
two digits of which specify the hour (from 00 to 23) and 
the last two digits of which specify the minute (from 00 
to 59). 



-unit number list . 



Resets the reliability factor of the indicated peripheral 
unit to 100*. 



PRINTED IN U.S. AMERICA 



5000722 



B 6700 / B 7700 SYSTEM SOFTWARE HANDBOOK ""-SS 



SYSTEM INPUT MESSAGES 



Ul •- nix nunber T"^'" 

^UL -J 



mix number - 



Assigns a file as an input file to a program and 
assumes that the file Is unlabeled. 



■-unit number - 



Removes a unit from the systecn for maintenance; the 
unit may be restored to the system via the UA message. 



US ■. nix nunbei 

mix number i 



Is used in the event of a genealogy mismatch between an 
internal program file and a tape file; the tape is to be 
accepted if the values of the CYCLE and VERSION attri- 
butes of the tape agree with the first and second numbers, 
respectively, in the US message. 



Yields a display of all suspended tasks waiting for 
operator intervention . 



Causes the current date to be displayed In the follow- 
i ng fo rm: mm/dd/yy . 



Causes the title and status of the current system intrin- 
sics file to be displayed. 
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Causes the title and level of the current MCP to be 
displayed with a list of corpile-time options which were 
set when the MCP was compiled. 



Causes the title of the current supervisor program 
to be displayed. 



Causes the current time of day to be displayed. 



XD — ^ EU — »■ number — ». ADDRESS — » number — ». FOR - 



Is used to eliminate bad spots on head-per-track disk 
from the disk available table. 



XS ►mix number list - 

mix number *■ XS 



Initiates the execution of the indicated scheduled job. 
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NOTE 

The following four messages are called 
"primitives" and are only to be used 
for a system failure that requires over- 
riding of the Controller. 



Causes a change in the running MCP to the HCP specified 
by the filename to be immediately initiated without 
waiting for a zero mix count. 



Invokes a non-fatal memory dump. 



Suspends job selection when the Controller will not 
accept the El system input message. 



Facilitates the removal of the JOBDESC file whei 
job directory is irrecoverably damaged. 
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DUk Diractory Tabic 

The disk directory tabie is displayed in response to the PD Iteyboard 
input message. This table contains a1! file names in the disit directory 
that are in the set specified by the input message. 

A typical directory table in response to the message PD SyMBOL/= follows: 

PD SYMBOL/' 
SYMBOL (DIRECTORY) 

Y (DIRECTORY) 

. MCP (SYMBOL:ESP0L) 

. SORT (SYMBOL :ESPOL) 

. CONTROLLER (SYMBOL:DCALG0L) 

. WFL (SYHBOLrDCALGOL) 

. JOBFORMATTER (SYMBOL :DCALGOL) 

. MAINTENANCE (SYMBOL :ESPOL) 

CCTABLEGEN (SYMBOL :ALGOL) 

OUMPANALYZER (SYMBOL :ALGOL) 

MAKE (DIRECTORY) 

. TAPE (SYMBOL:ALGOL) 

LOADER (SYMBOL :ESPOL) 

PACKDIR (SYMBOL IDCALGOL) 

SCTABLEGEN (SYMBOL :ALGOL) 

BLOCKCHAR (SYMBOL:ALGOL) 

COUNTANALYZER (SYMBOL lALGOL) 

If there are no names in the specified set, the message NULL FILE is 
displayed. 

For a complete listing on a line printer of all files stored on disk, 
the DIR input message is used. 

label Tabi* 

The label table is displayed in response to the OL keyboard input mes- 
sage. This table contains an entry for each peripheral unit of the 
designated type that is on line. 

An entry in the label table may consist of the following parts in the 
order given: the designation of a unit, a file identification, the 
status of the unit, and a job identification. 

A typical entry in the label table in response to the message OL MT97 
f o 1 1 ows : 

MTS7 P [0000031 #1 (1256) 6710Y/FILE000 
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If there are no tape units on line, the reply to the message OL HT is 
NULL «T TABLE. 



Mix TabI* 



The mix table Is displayed in response to the MIX l<eyboard input message. 
This table contains an entry for each job being executed or recently 
terminated and for each job that has been suspended. The table is dis- 
played continuously except for brief periods when it Is replaced by 
other tables in response to an Input message. 

The contents of a job's entry in the mix table depends on whether the 
job is active (being executed normally or recently terminated) or 
suspended. 

An entry for an active job may consist of the following parts in the 
order given: a mix index number, a compiler name (if the job is a 
compilation), a job name, a priority number, and status code (BOJ, EOJ , 
or DS-ED). The absence of a status code in an entry means that the job 
referred to is running. 

A typical mix table entry for a recently-begun active compilation job 
fol lows: 

0230 JOS 55 

..0231 55 COBOL TASK/A 

Peripheral Unit TabU 

The peripheral unit table is displayed in response to the PER keyboard 
input message. This table contains entries giving the status of each 
peripheral unit in the system. 

A typical display of the peripheral unit table in response to the 
message PERHT follows: 

PERMT 

MT STATUS 



97 P [000083] #1 6710Y/FILE000 

98*P [000000] SCRATCH 

50*9 [000018] #1 RMC/FILEOOO 

51 9 [000065] #1 CONTROLDECK 

52*9 [000052] #1 MEMORY/DUMP 
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SYSTEM OUTPUT MESSAGES 

System output messages are classified in three categories: RSVP, system, 
and job oriented. 

RSVP messages usually refer to a job, and they require operator atten- 
tion. 

System messages are informative in nature and require no special operator 
response. 

Job oriented messages are "no response" informative messages related to 
a job. 

<terminal reference> - This portion of a message gives information con- 
cerning the location of job termination. 

Syntax : 

terminal reference : := @ <SEG><PIR><PSR> 



where 



<SEG> 
<PIR> 
<PSR> 



= {segment} 

= {program instruction register} 

= {program syllable register} 



RSVP Messages 

RSVP messages are alt preceded by <mix index> except for the following: 

LP, PBT MT RQD <file labelxrdo : <job name> 

LP RQD <file label><rdc> :<job name> 

MAG TAPE REQUIRED 

PBT MT <file label><rdc>:<job name> 

PP RQD <fi)e label><rdc>:<job name> 

ACCEPT {accept data \ 

The occurrence of this message means that an object program has executed 
an ACCEPT statement. The operator must respond with an AX Input message. 
The accept data is usually a question such as "how many copies". 

OinnioDISK SEGMENTS REQUIRED 

This message occurs when the amount of disk storage needed by a program 
exceeds the amount of disk storage that is available for use. Creating 
space by removing a file or files and entering an OK keyboard Input 
message cause the job to continue. 
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DUP FIKfiU lab*l> 

The occurrence of this message means that an object program attempted to 
gain access to an input file but the MCP found more than one file with 
the specified <file label>. Processing of the program Is suspended 
until the operator tal<es action. 

The condition can be corrected by malting only one of the files available 
or by entering an IL message. The unit designated In the it message 
should be the unit on which the needed input file is located. 

DUP UBRARYOiU lab*l> 

The occurrence of this message means that an attempt was made to enter 
a file in the disk library but the label of the file is identical with 
a label already in the disk directory. The library maintenance process 
is temporarily suspended until the operator takes corrective action. 

The condition may be corrected by using a CHANGE or REMOVE control 
statement followed by an OK message or by entering an RM or OF message. 
By the use of the RM message, the disk file with the label specified In 
the DUP LIBRARY output message is reiroved. 

The same action also occurs for disk pack files. 

*IC 20<ZERO) 30(nnnnn);IIHF START 

This message Is displayed when trying to ready a processor. The values 
must be stored In these IC Registers, the I IHF flip-flop is set, and 
START must be pressed to get the Processor on line and to remove the 
RSVP message. One can also OS the stack "CPURECiPlENT" in response to 
this message. 

INTRINSICS FILE REQUIRED 

When a program attempts to call an intrinsic and fails to find an 
intrinsic file, the program displays the above message and waits for 
operator intervention. 

The operator may then: 

a. DS the program or 

b. Do a CI on an existing disk file or 

c. Copy an intrinsic file to disk and do a CI on it. 

LP.PBT MT ROD<file lab«l><rdc>:<iob nam«> 

The occurrence of this message means that a program needs a line printer 
or a printer backup tape and neither Is available. The program is 
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suspended until a line printer, bacl<up tape, or scratch tape becones 
available or until an OU message is entered to designate an alternative 
unit, such as disk. 

LP RQD«il« lab*l><rdO:<iob nani«> 

The occurrence of this message means that a program needs a line 
printer and none is available. The program is suspended until a line 
printer becomes available or until an OU message is entered to designate 
an alternative unit, such as disk. 

MAG TAPE REQUIRED 

This message indicates that the memory dump procedure of the HCP could 
not find a tape to dump to and is asking the operator to specify one. 
The operator responds with the keyboard message NT <nn>. 

NO FllE<fiU lab*l> 

The occurrence of this message means that a program needs an Input file 
which IS apparently unavailable. If the file is mislabeled it can be 
made available by, for example, the use of an IL message. If the file 
IS not labeled, a UL message can be used. If it is an optional file, 
an OF message Is needed. If a program has read the final reel of an 
unlabeled file, an FR message is needed. 

NO MEM 

The occurrence of this message means that the MCP was unable to obtain 
needed primary memory for a program.. If sufficient memory is not ob- 
tained, the operator must enter the OS message for the program. 

NO SCRATCH PRINTERS 

The occurrence of this message means that line printers are unavailable 
for system use. 

NO USER DISK 

The occurrence of this message means that a disk area was needed for a 
program but sufficient disk space was not available. Under these cir- 
cunstances, the operator should try to free enough disk by reiixiving some 
unneeded files from disk. (By entering the message PD/ = it is possible 
to learn what files are actually on disk.) Then, if enough disk has been 
treed, the entry of an OK message will cause processing of the program 
to begin again. If not enough space can be made available, a DS message 
should be entered for the program. 

NULL LP TABLE 

The occurrence of this message means that line printers are unavailable 
for system use. 
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OPERATOR STOPPED 

The occurrence of this message means that the specified job was sus- 
pended in response to an ST input message. An OK message is needed if 
processing is to continue. A DS message can also be entered. 

PBT MT ROD<fil* lobelxrdo :<iob nain*> 

The occurrence of this message means that a program needs a scratch tape 
for a printer baci^up file and none is available. The program is sus- 
pended until a scratch tape is made available or until an OU message is 
entered to designate an alternative unit, such as dislt. 

PP ROD«il« lab«l><rdc>:<iob nam«> 

The occurrence of this message means a program needs a paper tape punch 
and none is available. 

<unil mn«monic> READ CHECK 

The occurrence of this message means that a read check error occurred 
on a card reader. The iast card read must be reread, or if the error 
is a check feed error type, the last two cards must be reread. If a 
second card also fails, the card hole punches may be off or the card 
reader may need servicing. 

RECOPY REOD :<»iU id> 

The responses for this message are OK, DS, OF, and FR for more than one 
destination tape. 

<iiU lobeO REQUIRES <unit mnemonio 

The occurrence of this message means that a job required the peripheral 
device and it is not available. 

REQUIRES FM {user message of 25 characters or less} 

The occurrence of this message means that a program is ready to open a 
file for which FILE. FORHNESSAGE has been set. An FM input message is 
needed if processing is to continue, or a DS may be entered, or an OU 
input message may be entered for line printer. 

REQUIRES SC 

The REQUIRES SC (scratch console) message occurs if there are no con- 
soles available. The operator may use an OU message to designate a 
console. 

•<n> SECT REQ ON PK <nnn> 

This message indicates sectors are required on a particular disk pack. 
Acceptable replies to this message are OK, DS or OU input responses. 
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<<nnnnnn> [CLASS <nniic>] SEGMENTS REQUIRED 

This message indicates a job has been suspended waiting system disk 
availability. Disl^ can be made available by removing files or the job 
can be OKed to search the available tables again or the job may be DSed. 
If classed disk Is required, disk must be made available from the given 
class EU. 

*WAITING FOR HEADER SPACE 

This message indicates the disk file header limit in core memory has 
been exceeded and the stack will wait for headers to be forgotten and 
resume or the operator can DS the job. 

OinntO WORDS REQUIRED 

When an attempt is made to make an array present and not enough words 
are available, the program is suspended with this message. The job can 
be subsequently OK-ed or DS-ed. 



PRINTED IN U.S. AMERICA 



B 6700 / B 7700 SYSTEM SOFTWARE HANDBOOK ''■''3 



SYSTEM MESSAGES 



System Messages 

Those marked with an asterisk are preceded by <mix i ndex> . 

•<flle i<l> ALREADY OPEN<terminal reterenc«> 

The occurrence of this message means that a user's program attempted to 
open a file that was already open. 

AN INTEGER WAS EXPECTED 

The occurrence of this message means that an integer was expected on a 
control card (for example, a core-required card or a stack-size card) 
but was not found. 

*ASSIGN OP REOD<terininal reference> 

This message occurs on a NAMELIST input, when a character other than an 
equals sign is encountered following a simple yariable name or array 
name or a subscripted array name. The program is terminated, unless a 
branch label for a data error is present. 

•BAD LIBRARY TAPE 

The occurrence of this message means that a library tape has irrecover- 
able parity errors and that its contents cannot be placed on disk. 
The library maintenance process will be discontinued, and a DSed mes- 
sage to that effect will be displayed. 

•BAD RESIZE/DEALLOCATE<termmal reference> 

This message indicates an attempt to resize a segmented or value array 
and the program is discontinued. 

•<unit mnemonio BEGIN OR END OF TAPE 

This message indicates an abnormal beginning or ending of paper tape 
reader operation occurred. 

•<»iU id> BREAK ON OUTPUT <terminol reference> 

This message indicates a break occurred while doing output to a remote 

device. 

•<file id> BLOCK CNT ERR<terminal reference> 

The occurrence of this message means that the number of blocks processed 
by the program did not agree with the count of blocks maintained in the 
trailer label. 
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*<iob name> @ <priority> BOJ 

The occurrence of this message is an indication that the execution of 
the named object program has begun. 

decompiler nameXjob nam«> @<priority> BOJ 

The occurrence of this message is an indication that a compilation has 
begun. 

<unit mnemonioBUSY 

The occurrence of this message means that an I/O operation was attempted 
on the specified unit and the unit was apparently busy. This condition 
indicates a hardware or software failure. 

<fila label> CHANGED TO<file label> 

This message appears after the MCP has performed an operation specified 
in a CHANGE control statement. 

*CMPLX>MAXREAL<terminal refer«nc«> 

This message occurs on a NAHELIST input, if either the real or the 
imaginary part of a complex number exceeds the maximum value for a 
single precision operand. The program is terminated, unless a branch 
label for a data error is present. 

COMPILER NAME NOT FOUND 

The name specified (on the compiler card) as a compiler is not in the 
di rectory. 

CONTROL CARD ERROR <onit mn«monic> 
1 information from control card} 

The occurrence of this message means that the HCP had expected to read 
control information from the designated 1/0 unit but has found the 
information to be in error. (For list of control card error messages, 
see Section 5.) 

Vfile label> COPIED 

This message appears after the HCP has performed the operation specified 
in a COPY control statement. 

*CORE NOT AVAILABLE 

This message indicates swapper was not able to get a chunit of contiguous 
save memory the size of swap core size in SYSTEM/SWAPDI SK. 
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CP ROD <lile label><rde>:<iob name> 

The occurrence of this message means that a program needs a card punch 
and none is available. The program is suspended until a card punch 
becomes aval lable. 

•<file id> CREATED 

This message is in response to a successful XD input message. 
•CRITICAL BLOCK EXIT<terminal reference> 

The occurrence of this message means that a program attempted to exit 
from a block that was in use by a subtasl< of that program. {IPC 
message.) 

DA 

<unit mnemonic> <retrY data> 
where 
<retry data> : : = 

<l/0 operation> DA = <integer> 
; # SEG = <integer> ; 

# RTRY = <integer>; 

# TRNS = <integer> 

The occurrence of this message means that retries had to be made on the 
disk file. The < I /O operation> is an R if it was read, W if a write. 
The <integer> appearing after DA is the disk address; the <integer> 
appearing after SEG is the number of segments read or written; the 
<integer> after RTRY is the number of retries necessary; and the 
<integer> after TRNS is the number of disk transactions since the last 
Halt-Load operation. 

*<(ile id>DATA ER NO LABL<terminal refarenc«> 

The occurrence of this message means that a data error has occurred and 
that there is no branch label. 

DATACOM REQUESTED 

The occurrence of this message means that an attempt was made to open 
files when the DCP was not initialized. The program is terminated. 

•DATA NAMELIST<terminal reference> 

This message occurs when a character other than a comma separating 
fields or "6 END" terminating the NAHELIST is encountered. The pro- 
gram is terminated unless a branch label for a data error is present. 
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DCP<nnn> INITIALIZED 

This message is the response to the OC input message which causes the 
DCP numbered <nnn> to be initialized. 

DCP<nnn> NOT ON LINE 

The occurrence of this message means that an attempt was made to 
initialize a DCP that is in local. The DCP being addressed could not 
be addressed. 

DCP <nnn> RUNNING 

This message is displayed when an attempt is made to initialize a DCP 
that has already been initialized and is running. 

*DEATH IN THE FAMILY terminal ref0rence> 

When a task is terminated because of an error, the termination of each 
of its subtasks is signaled by the occurrence of this message. (IPC 
message.) 

DECAY =<un$ioned inte9er> % 

This message is the response to a TF (type factor) working set message. 
<unsigned integer> represents the percent amount of memory that can be 
forgotten, 

DECK<integttr> REMOVED 

This message appears after the pseudo card deck specified has been re- 
moved from disk. The removal of a pseudo card deck from disk can be 
the result of the completion of a job, the entry of an RD input message, 
or the entry of a REMOVE DECK control statement. 

DECREMENT = <unsign*d int«g«r> % 

This message is the response to a TF (type factor) working set message. 
<unsigned integer> represents the percent amount of working set 
decrement . 

^Tunit mn«inonic> DESCR.ERR 

The occurrence of this message means that an error in the I/O descriptor 
has been encountered by the kernel I/O routines. 

DESIRED =<unsign«d int«gtt>/MINUTE 

This message is the response to a TF (type factor) input message. 
<unsigned integer> represents number of overlays needed. 
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'DIMENSION SIZE ERROR I = J<f«rininal refarance> 

The occurrence of this message means that a program has requested a 
nonoverlayable area that is larger than the available space. I is the 
dimension number and J is the size of the attempted dimension. 

DIRECTORY DAMAGED 

This message is displayed upon detection of conflicting row addresses 
at "directory complement" time. It indicates that some directory de- 
struction has occurred. The user may then execute SYSTEM/Ll STDI RECTORY 
and dump any conflicting files/rows. Removal of conflicting files and 
a subsequent Halt-Load should clear up the situation. if an internal 
failure is detected, a memory dump is initiated. 

DISK ADDRESS ERROR 

This is a DFO (disit file optimizer) information message. 

DISK PACK INPUT COMMAND MESSAGES 

The following messages can occur as a consequence of disl< pacit input 
commands (such a& PO, RC, IV, etc.): 

a. BAD IMTERNAL PARAMETER (FROM CONTROLLER) 

b. BAD PACKNAME 

c. BASE PACK REQUIRED 

d. EXISTING SERIAL NUMBER 

e. I/O ERROR, IV ABORTED 

f. 1/0 ERROR, PO ABORTED 

g. 1/0 ERROR, RC ABORTED 

h. MISSING OR INVALID SERIAL NUMBER 

i. NAME REQUIRED 

j. PACK CLOSED 

k. PACK ERROR 

1. PACK IS IN USE 

m. PACK SCRATCHED 

n. POWERED OFF 

o. TOO MANY BAD SECTORS, IV ABORTED 

p. UNIT NOT AVAILABLE 

DISK PARITY ON LIBRARY MAINTENANCE 

The occurrence of this message means that a library maintenance opera- 
tion was not successfully completed. 

DIV BY ZERO BRANCH <iob nam*., <t«rrainal r*(*r*nc«> 

The occurrence of this message means that a divide operation using a 
divisor of was attempted by an object program but a prografmatic 
recovery feature was used. 
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DK ERR RD = <nnnnn>, UNIT = <nnrO', SEG = <nnnnnn> 

This message is displayed when a disk failure occurs. The result de- 
scriptor (RD) , the unit number (UNIT) of the EU, and the segment 
address (SEG) are provided. 

*<program id> DSED <terminal reference> 

This message appears after the specified job has been discontinued in 
response to a DS input message. 

DUMP WAS BY Kcause of dump> 

This message occurs if a non-fatal memory dump was attempted and the 
option "NODUHP" is set (option 13). 

EOT NO LABEL <file label>:<iob naine>,<terininal reference- 

The occurrence of this message means that an object program has 
reached the end of the declared area of the designated file on disk. 
Consequently, the processing of the program has been discontinued. 

Viunit mnemoniO ERR RD =<re$ult descriptor 

This message occurs when a non-recoverable error occured on either disk 
or disk pack. This Is an informative message that may be used for 
further recovery efforts. 

<unif mnemonio ERROR - RW/L 

This message occurs when an error occurred in one of several places while 
trying to write beginning or ending labels. 

^file id> EXCEEDED TIME LIMIT <terminal reference> 

This message indicates the timellmit has been exceeded for remote input 
and the program is discontinued. 

<file lcibel> EXPIRED 

This message, which occurs at Halt-Load time, refers to files on disk 
for which the save period has expired. 

EXPON OVRFLW BRANCH<iob namc>,<termincil reference> 

The occurrence of this message means that an exponent overflow occurred 
but that a programmatic recovery feature was used. 
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FACTOR = <unsigned integer> % 

This message is the response to a TF (type the factor) working set input 
message. <unsigned integer> represents the factor itself, the present 
value of the ratio of virtual core to actual core. 

For non-working set MCP , the response to the TF message is as follows: 

FACTOR = <unstgned i nteger> % 

<unit mn«monic><l/0 operation> FAILURE — D<integer> 

The occurrence of this message means that one of the following error 
conditions persisted after ten retries: 

<inte9er> = 19- Parity error between I/O control and core or 

disk file control . 

<integer> = 20. Parity error on transfer from disk. 

'FAULT OF BAD TASK ATTRIBUTE <terfflinal reference> 

This message occurs when a fault occurs while attempting to set a task 
attribute. 

*GOING AWAY<terminal re(erence> 

This message occurs when SWAPPER has been DSed and is awaiting all jobs 
in swapspace to go to end of job. 

INACTIVE QUEUE <t«rminal referenco 

This message occurs when an attempt is made to remove a message from a 
queue in which no message has ever been stored. 

INCOMPATIBLE LEVEL 

This message indicates that the MCP and a compiler are incompatible, 
specifically in the area of changes made to the MCP when corresponding 
changes have not yet been made to the compiler. (The job is DS-ed.) 

'ILLEGAL COMPILER <terminal r*Urence> 

This message indicates an attempt was made to compile a program with a 
program that has not been made a compiler via the MC message. 

'ILLEGAL VISIT <terminal ref«renc«> 

This message occurs If the le;<ographic structure of the task to be 
visited (continued) does not conform to the visitor's structure. 
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INCREMENT =<unsisnad int*g*r> % 

This message is the response to a TF {type factor) message. <unsigned 
integer> represents the percentage increment of the woriting set. 

V:unil mnemonio INCOMPLETE RECORD 

This message indicates the paper tape device stopped before the word 
count has been counted down to 0. 

*INCORRECT SYNTAX <t«rrainal r*fer*nc«> 

This message results when the NAME or USERCODE tasi< attribute is set to 
a string that does not conform to the standard naming convention. 

•INITIATE ACTIVE TASK<l«rrainal reference> 

This message will occur when a program attempts to initiate a tasit that 
already has a stacit assigned to it. 

•INSTR TIMEOUT <t«rminal r«Ur»nce> 

This message occurs when, after 2 seconds, the processor has failed to 
provide a Syllable Execute Complete Level (SECL) . 

INTERPROGIWM COMMUNICATION (IPC) MESSAGES (Each IPC message is explained 
at its own place in the proper section.) 

MISSING CODE FILE NAME 
HISSING CODE FILE 
MUST BE CODE FILE 
INITIATE ACTIVE TASK 
NON-EXTERNAL RUN 
VISIT NONACTIVE TASK 
ILLEGAL VISIT 

NGN ANCESTRAL EXCEPTIONEVENT 
INCORRECT SYNTAX 
STACKNO IS READONLY 
TASKTYPE IS READONLY 
PROCESSTIME IS READONLY 
I DTI ME IS READONLY 
STARTTIHE IS READONLY 
STORPOINT IS STORED 
EXCEPTIONEVENT IS READONLY 
INVALID COBOL CALL 
INVALID COBOL PARAMETER 
DEATH IN THE FAMILY 
CRITICAL BLOCK EXIT 
ILLEGAL BAD GO TO 
EXC I/O TIME 
EXC PROC TIME 
INVALID PARAMETER 
TASKERROR IS READONLY 
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PROCESSTYPE IS READONLY 
NONEXECUTABLE CODE FILE 
PARAMETER MISMATCH 
ILLEGAL COMPILER 
SECURITY VIOLATION 

INTGR OVERFIW BRANCH<iob name> ,<t»rniinol refarencO 

The occurrence of this message means that an integer overflow occurred; 
but that a programmatic recovery feature was used. 

<unit mn»monit>IN USE<iob id> 

This message occurs in response to a PER or an OL input message and 
indicates that the unit specified is being used by a job. 

INTRINSIC FILE NOT LOADED 

This message occurs when the MCP attempts to initialize the intrinsic 
file in response to a CI message, and the file is either not specified 
or not on disl<. 

^unif mnemoniO INVALID CHR. IN COL.<nn> 

This message indicates an illegal character has been detected In a column 
other than I on the card reader. 

INVALID EOJ<iob nam«> ,<terminal refer«n««> 

The occurrence of this message means that a COBOL or FORTRAN program 
attempted to execute the END statement or that a sequence error 
occurred. Consequently, processing of the program was discontinued. 

INVALID INDEX BRANCH<job naiii«> ,<t«rminal r«f«renc«> 

The occurrence of this message means that an invalid index occurred but 
that a programmatic recovery feature was used. 

•INVALID SYSTEM/USERDATAFILE 

This message indicates SYSTEM/USERDATAFILE does not have the following 
attributes: 

a. FIXED LENGTH RECORD 

b. UNITS ARE WORDS 

c. EXTERNAL MODE OF SINGLE DATA 

d. NOT CRUNCHED 

e. BLOCKSIZE IS 30 

f. MAXRECSIZE IS 30 

g. ROUSIZE >^ 8 

h. FILETYPE OF DATA 
i. END OF FILE > 
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<fiU label>INVALID UNIT 

This error message indicates that an attempt has been made to open output 
an invalid unit (i.e., pseudoreader) . 

INV KBD {typed— in information! 

The occurrence of this message means that the MCP was not able to 
recognize a message entered from the keyboard, 

<unit innemonic> INV MEM ADR 

The occurrence of this message means that an invalid address occurred 
when data was to be transferred between an f/0 channel and primary 
memory. The MCP recognizes the error condition and, if possible, 
rectifies the errors. The primary purpose of this message is to draw 
attention to a condition which could denote a hardware failure. 

*I0 ERROR READING TAPE DIRECTORY 

The occurrence of this message means that an error was encountered while 
the directory of library files was being read from tape. 

*I0 ERR POSITIONING TAPE SOURCE 

This message occurs during library maintenance, when spacing to the 
next input file on tape is going on. 

•I/O ERROR ON SYSTEM/USERDATAFILE 

This message indicates an I/O error occurred while manipulating SYSTEM/ 
USERDATAFILE. 

<unit mnemonic>l/0 MEM PAR 

The occurrence of this message means that a parity error occurred when 
data was to be transferred between an I/O channel and primary memory. 
The MCP recognizes the error condition and, if possible, rectifies the 
errors. The primary purpose of this message is to draw attention to a 
condition which could denote a hardware failure. 

<unit mnemonio IRRECOVERABLE WR PARITY 

The occurrence of this message means that an irrecoverable parity error 
occurred on the designated unit. 

V;disk unit> IS ON-LINE 
NOT READY 
READY 

These are the three responses to the RYDK <nnn> input message. 



PRINTED IN U.S. AMERICA 



B 6700 / B 7700 SYSTEM SOnWARE HANDBOOK 



4-53 



SYSTEM MESSAGES 



LABEL EQUATION ERRORS 

- Peripheral unit or variant type. 

1 - Disk information: speed, access, pacl<ed . 

2 - Label type. 

LIBRARY MAINTENANCE ERROR MESSAGES 

The following are messages that result from library maintenance errors: 

a. BAD PACK UNIT NUMBER <unit id> 

b. TAPE DIRECTORY WRITE ERROR <unit id> 

c. TAPE DIRECTORY READ ERROR <unit id> 

d. TAPE DIRECTORY NOT FOUND <unit id> 

e. RECORD SEOUENCE ERROR <unit id> 

f. TAPE NOT LIBRARY TAPE <unit id> 

g. TAPE POSITIONING ERROR <unit i d> 

h. TAPE DIRECTORY COMPARE ERROR <unit i d> 

i. TAPE DISKHEADER READ ERROR <unit id> 

j. UNEXPECTED TAPE DIRECTORY <unit i d> 

k. FILE TITLE ERROR <iinit id> 

1. TAPE DISKHEADER WRITE ERROR <unit id> 

m. BAD COPY ONTO <unit id> 

n. 10 ERROR DURING COMPARE <unit id> 

o. COMPARE ERROR <unit id> 

p. BAD DISK HEADER ON TAPE <unit id> 

q. 10 ERROR DURING COPY <unit i d> 

r. <file id> IS NOT A DIRECTORY 

s. <file id> NOT ON DISK 

t. <file id> NOT ON DISK PACK 

u. <file id> IS A SYSTEM FILE 

V. <file id> COPIED 

w. <fi le id> ADDED 

<»ile label> LIBRARY MAINTENANCE IGNORED 

This occurrence of this message means that the MCP was not, because of 
some invalid condition, able to perform the library maintenance opera- 
tion specified on a control card. An example of such a condition is an 
attempt to remove a nonexistent file. 

<(iU nam» (LOADED) 

This message is one of the responses to the CI input message. It indi- 
cates that the intrinsic file has been loaded. 

LOG<into9er>%FULL 

This message informs the operator how full the log is. The <integer> is 
some multiple of 5. 
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LOG 95% FULL-AUTOMATIC LR 

This message tells the operator that the current log is 95 percent full, 
that the system has automatically renamed and saved It, and that a new 
system log file has been created. 

MvtuI mMmonioLOW ON PAPER TAPt 

This message occurs when a paper tape punch has run low on paper tape. 

LP,PBT MT ROD<file lob«l><rdo :<iob name> 

The occurrence of this message means that a program needs a line 
printer or a printer backup tape and neither is available. The pro- 
gram is suspended until a line printer, bacitup tape, or scratch tape 
becomes available or until an OU message is entered to designate an 
alternative unit, such as disk. 

LP ROD <fil« label><rde>:<iob name> 

The occurrence of this message means that a program needs a line 
printer and none is available. The program is suspended until a line 
printer becomes available or until an OU message is entered to designate 
an alternative unit, such as disk. 

MAXIMUM =<unsignecl lnteger> % 

This message is the response to a IF (type factor) message. <unsigned 
integer> represents the maximum percentage of core memory needed in the 
working set. 

MAXIMUM PSEUDOREADERS =<int*sar> 

This message occurs in response to the RN input message. 
MAX COPIES OF AUTOPRINT =<inte9.r> 

This message occurs in response to the AP input message. 

'MAX SLICE NUMBER NOT VALID 

This message indicates the sixth word (maximum slice number) is outside 
the range 0-255. 

MCP CHANGE ABORTED (NOT ON DISK) 

This message is displayed in response to the CM input message if the 
needed MCP file is not on disk. 

MCP CHANGE ABORTED (NOT ESPOL CODE) 

This message is displayed in response to the CM input message if the MCP 
file is not an ESPOL code file. 
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MCP CHANGE PENDING 

This message is one of the responses of the system to a CM input mes- 
sage, if the needed MCP file is on disk. 

•<unit mnemonio MEMORY ACCESS ERROR 

This message Indicates a memory access error occurred on paper tape. 

MEMORY MODULES <ready mamory list> READY 

This message is displayed in response to the MM input message. 

Example: 

MEMORY MODULES 0. 2-5 READY 

<unit mn«monic>MEM PROTECT ERR 

This message indicates an attempt at storing in a memory protected word 
(bit "tS) while performing an I/O operation. This usually indicates a 
failure in the hardware. 

MINIMUM =<unsign«d integer> % 

This message Is the response to a TF (type factor) message. <unsigned 
integer> represents the minimum percentage of core memory needed in the 
working set. 

•MIN TIME SLICE NOT VALID 

This message occurs when the fifth word (minimum time slice) of system/ 
swapdisk is less than 0. 

•MISSING ROW 

This message occurs when a row address in the file SYSTEM/SWAPDISK is 
missing. 
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*MOD#<nn>N0T READIED : <msg> 

<msg> = I 



NOT ON LINE 
ADDRESS LINE FAILURE 
ZERO-TEST FAILURE 
DROPPING OPERAND BITS 
DROPPING TAG BIT (1|9) 
DROPPING TAG BIT (50) 
DROPPING TAG BIT (51) 
NOT VISIBLE BY ALL PROCS 
NOT VISIBLE BY ALL HPXS 



MPX PARITY ERR 

This message occurs when the system detects the transfer of an even 
number of bits between the processor and multiplexor. 

MT ROD <file label><rdc> : <iob name> 

The occurrence of this message means that a program needs a scratch tape 
for a tape file. 

NAHELIST ERRORS (Each NAMELIST error message is explained at its own 
place in the proper section.) 



INVLD VARIABLE 
NUM> INTEGER 
DATA-NAHELIST 
ID EXPECTED 
NUMBER REftO 
RT PAREN REQO 
INVLD SIGN 
INVLD ASTERISK 
INVLD RPT FLD 
INVLD EXPONENT 
COMPLX>HAXREAL 



INVLD INDEX 
INVLD SUBSCRIPT 
INVLD LT PAREN 
INVLD NUHTYPE 
ASSIGN OP REQD 
OUTPUT LIST REOD 
CUNFORHATTED I/O) 
NVLD CU-UNFORMATTED 10 
LIST EXCEEDS REC. SZ 
OUTPUT LIST TOO LONG 



*NAME READONLY ON ACTIVE TASK <terminal relerencO 

This message indicates an attempt was made to set the task attribute 
NAME to an active task. 

NEW MCP PB ON<unit mnemonio 

This message indicates that a new printer backup file has been opened 
on the unit indicated. (Produced when the OPEN option is set.) 

<unit mnemonio NEW PBT 

The occurrence of this message means that a new printer backup tape 
was opened. (Produced when the OPEN option is set.) 
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NO ACCESS TO EXCHANGE 

This is a disk file optimizer (DFO) error message. DFO operation is 
cut off. 

NO DCP CODE 

This message occurs when an NDl description has been created but 
DCPROGEN has not been run against it to create DCP code. 

NO FILE<vol id> / FILEOOO 

The occurrence of this message means that an attempt was made to copy 
files from a library tape that was not available to the system. 

NO FILES ADDED 

This message is displayed when all user-specified files are already 
present on disk. 

NO FILES COPIED 

This message is displayed when no user-specified files can be located 
on disk or tape. 

NO VALID CHARACTER 

This message indicates that the system expected to read a control card 
through the card reader, but the card that was read did not have an 
invalid character punched in column 1. 

NO NDL DESCR 

This message occurs when the DCP that one is trying to initialize was 
not described in the NDL compilation. 

*NON ANCESTRAL EXCEPTIONEVENT <termlnal reference> 

This message will occur If one tries to use an EXCEPTIONEVENT that is 
not within your ancestral addressing range. 

*NON EXECUTABLE CODE FILE<terminal ref«rence> 

This message means an attempt was made to execute a file that is not a 
code file. 

'NON-EXTERNAL RUN <terminal referenco> 

This message will occur if a program attempts to RUN an internal 
procedure. 
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*NOT ALLOWED-SWAPSPACE<terminal r«ferenc«> 

This message occurs when a user task Is attempted to be initiated in 
SWAPSPACE and the program is discontinued. 

<file labe> NOT CHANGED (NOT ON DISK) 

This message occurs in response to a change control statement. If the 
<file Iabel> to be changed is not in the disk directory (that is, if the 
f i le is not on disk) . 

<fil« label> NOT CHANGED (SYSTEM FILE) 

This message occurs in response to an attempt to change the name of a 
system file (such as SYSTEMDI RECTORY) . Such a change is not permitted. 

<fila label>NOT COPIED DIRECTORY 

This message indicates that a file was not copied to a library tape, 
because it was a directory. 

<fil« lab«l>NOT COPIED NOT ON <tape or dlsk> 

The occurrence of this message means that the library maintenance 
process could not locate a file it was to copy. 

<fil« label>NOT IN DIRECTORY 

The occurrence of this message means that a control statement 
referenced a file that was not in the disk directory. 

<program id> NOT IN DIRECTORY 

The occurrence of this message means that an EXECUTE, RUN, or COMPILE 
statement referenced a program that was not in the disk directory. 

<fila nomtt>(NOT LOADED) 

This message is one of the responses to the Wl input message. It indi- 
cates that the intrinsic file has not been loaded. 

*<dcp numb«r>NOT ON LINE 

This message indicates the DCP has not responded to a system attention 
scanout and is not on line. 

*<unit mnemonic>NOT READY 

The occurrence of this message means that an I/O operation was 
attempted on a unit that was not ready. This condition could be an 
indication of a hardware or software failure or simply an indication 
of the fact that the unit is in local. 
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<unit mn«monic>NOT READY EU 

The occurrence of this message means that an I/O operation was 

attempted on a unit of disk but that the disk file electronics unit 

was not ready. This condition would indicate a hardware or software 
fai lure. 

<fiU lab«l> NOT REMOVED (NOT ON DISK) 

This message indicates that an attempt was made to remove a file that 
is not on disk (that is, whose name is not in the disk directory). 

<fiU lab»l>NOT REMOVED (SECURITY ERROR) 

This message occurs in response to an illegal attempt to remove a file 
under security. 

<file label> NOT REMOVED (SYSTEM FILE) 

This message occurs in response to an illegal attempt to remove a 
system file (for example, WORKAREA or SYSTEMDl RECTORY) . 

*NUMBER REOD<terminal referenc«> 

This message occurs when NAMELIST encounters on input a variable name 
(ID) and equals sign but encounters a separator, terminator, or another 
variable name before seeing the value. The program is terminated, 
unless a branch label for a data error is present. 

Vonit mfi«monic>OUT OF PAPER 

This message indicates a line printer has sensed a break in the paper 
indicating it has run out of paper. 

*OUT OF SWAP DISK 

This message indicates SWAPPER is out of swap disk for the current mix 
situation and will generally require SWAPPER being DSed. 

'PARAMETER MISMATCH <terniinal rttf«rence> 

This message indicates an incorrect number or kind of parameters were 
attempted to be passed to an external procedure. 

*<unit mn«monic> PARITY 

This message occurs on a paper tape reader only when the MCP compile 
time option REVERSE PAPERTAPE is reset and paper tape parity retry cannot 
be tried. With a paper tape punch and magnetic tape, a parity occurred 
whi le wri ting. 
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PARITY ON <unit mnemonio 

The occurrence of this message means that the MCP received an irrecover- 
able parity condition while reading the label or scanning down a multi- 
file volume. 

VCfile id>PAR ON POSITION <terminal reference> 

The occurrence of this message means that an error was encountered 
during an attempt to position a file in order to open it. 

*PK <nnn> DIRECTORY DAMAGED 

This message indicates there are overlapping files on the given disk pack. 

•PROCESSOR <n> (ON/OFF) LINE 

This message results when a processor is successfully readied or saved. 

*<unit mnemonio PUNCH CHECK 

The occurrence of this message means that an irrecoverable punch check 
error occurred during the punching of a card. Processing continues, but 
the card punch may need servicing. 

*<unit mnemonio PURGED 

This message indicates the unit has been successfully purged. 

vrfile id> OTED : BAD DATA 

This message results when AUTOPRINT gets a fault while trying to print 
a backup file and automatically QT's the file. 

RANGE =<unsigned integer> % 

This message is the response to a TF {type factor) working set message. 
<unsigned integer> is the percentage overlay range needed. 

READ ERROR FOR {control cord information^ 

The occurrence of this message means that a read error, probably irre- 
coverable parity, occurred during the reading of a control deck for the 
disk. The control card which is printed denotes the deck which will be 
deleted. The decks that follow will be loaded normally. 

<unit mnemonic> READ PARITY 

This message indicates that a parity error occurred while an attempt was 
being made to read a tape label. 
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RECONSTRUCTION DATA ERROR 

This message indicates a data error occurred while RECONSTRUCTING to a 
backup EL) and the resulting reconstructed file structure may be corrupt. 

RECORD SEQUENCE ERROR 

This is a library maintenance error message. It occurs when a se- 
quence error is discovered when sequence checking for source tape 
copies. 

<f;ie label> REMOVED 

This message appears after an operation specified in a REMOVE control 
statement has been completed. 

RESERVE ERROR MESSAGES 

The following is a list of error conditions and messages displayed by 
tile XD, RESERVE, and RETURN input messages: 

SEG ADR GTR MAX EU ADR 

ILLEGAL SU/SW NUMBER 

DELIMITER EXPECTED 

NUMBER EXPECTED 

INVALID UNIT 

ONLY APPLICABLE TO DISK UNITS 

UNIT NOT READY 

SECOND i MUST BE GTR THAN FIRST I 

INVALID ALTERNATE EU SYNTAX 

ONLY ONE AREA ALLOWED 

CANNOT RESERVE MCP CODE FILE AREA 

MAXIMUM BACK UP EUs EXIST 

INCOMPATIBLE EU CLASSES 

PREVIOUS RESERVE INCOMPLETE 

ATTEMPT TO RESERVE IAD AREA 

ONLY IAD AREAS MAY BE RETURNED 

CANNOT BE XD-ED 

WAITING ON: JOB <mix *> 

DIR PAR 

IN IAD AREA 

INSUFFICIENT RESERVE SPACE 

<lape label> RET 

This message indicates that a tape that is being saved has an 
expired save factor. if the tape were not being saved, it would have 
been purged automatically. (Produced when the RET option is set.) 
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*<dcp numb«r> RUNNING 

This message indicates the said DCP has been successfully initialized. 

<unit mn«monic> RW/L 

The occurrence of this message means that a tape has been rewound and 
locked. 

<unit mnemonic> SAVED 

This message is a response of the system to a SV input message. 

*SCAN PARITY<t«riiiinal reUrene«> 

This message occurs if during a SCAN-IN or SCAN-OUT operation to the scan 
bus, a parity error is detected. Processing of the program is discon- 
tinued. 

<unit mnemonic> SCRATCH 

The occurrence of this message means that a tape was purged by an input 
message or a program. 

'SEQUENCE ERROR<terminal ref*renc«> 

This message indicates that there is a stack linkage problem. 

•SET CONDITIONAL HALT SWITCH FOR CPU <n> 

This message results when an attempt is made to save a CPU <n> and the 
CONDITIONAL HALT switch on the MDL for this processor is OFF. 

"SLICING RATIO NOT VALID 

This message indicates word seven (slice ratio) of SYSTEM/SWAPDI SK is 
outside of the range or >^ 1 . 

*<unit nin«monic> SN REQUIRED 

This message indicates an attempt was made to purge a tape that did not 
have a serial number and the operator must scratch the tape with the 
SN message. 

'STACK BOTTOM ERR <t«rminal r«f«renca> 

This message occurs when an attempt is made to cut back the stack below 
BOSR. 

STACK PARITY 

This is a disk file optimizer (DFO) error message. DFO operation is 
cut off. 
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SU NOT AVAILABLE 

This is a disl( file optimizer (DFO) error informative message. 

•SWAPCORE NOT VALID 

This message means tlie fourth word SWAP CORE SIZE is not a multiple 
of the core slot size (i.e., 990 words). 

•SWAP DISK NOT VALID 

This message results when the rowsize of SYSTEH/SUAPDI SK is not a 
multiple of the disl< slot size (i.e., 'I'l segments). 

•SYSTEM/USERDATAFILE IS FULL 

This message occurs while trying to create or change user files, and 
the system has run out of disk for SYSTEM/USERDATAFILE. 

•SYSTEM/SWAPDISK NOT THERE 

This message results when a disk file SYSTEH/SWAPDI SK is not in the 
directory and an SW message is entered. 

TAPE DIRECTORY NOT FOUND 

This is a library maintenance message. It occurs when sequence check- 
ing for source tape copies. 

<unit mn«monit> TO BE SAVED 

This message indicates that the unit specified in the SV input message 
is currently in use. 

UNEXPECTED TAPE DIRECTORY 

This is a library maintenance error message. It occurs when sequence 
checking for source tape copies. 

UNIMPIEMENTED CONSTRUCT 

This message occurs when a program attempts to use a construct which 
is not implemented, such as a dynamic own array. 

•<uni» mn.monioUNIT NOT READY 

This message indicates the unit went NOT READY while trying to write the 
beg inn I ng label . 
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*UP LEVEL TASK ASSIGNMENT 

This message results when an attempt is made to assign to one's 
EXCEPTIONTASK a tasic of incompatible lexocographic levels. 

'VALIDITY CHECK FAILURE 

This message indicates the first three words of the file SYSTEM/ 
SWAPDISK do not contain the string 8"SYSTEM/SWAPDI SK. ". 

•VISIT NONACTIVE TASK 

This message occurs when a program attempts to visit (continue) a non- 
active tasic, 

*<unit mnemonio WRITE ERROR 

This message indicates some sort of non-parity write error (e.g., memory 
protect, memory access) occurred while trying to write the beginning 
label . 

*<unil mnemonio WRITE PARITY ERROR 

This message indicates a write parity occurred while trying to write 
the beginning 1 abel . 
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Job Oriented Messages 

Those marked with an asterisk are preceded by <mix index>. 

<file name> ADDED 

This message is displayed when a file has been added from tape to disk. 

•ARRAY TOO LARGE <terminal reference> 

This message indicates that an attempt has been made to make present 
an array that is larger than the overlay row size of the HCP. This can 
be avoided by segmenting the array. Processing of the program Is dis- 
continued. 

DISK PACK ERROR MESSAGES 

The following list shows the disk pack error messages: 

a. <flle id> CONTAINS ABNORMALLY CLOSED FILES 

b. <flle Id> PK MISSING ROW 

c. <file id> REQUIRES PK 

d. <file Id> REQUIRES PK WITH SNjjf <n> 

•DISPLAY : {25 characters of text} 

The word DISPLAY preceding a string of text Indicates that the string 
of text has been generated by a user program, not by the MOP. 

•DIVIDE BY ZERO<terminal reference> 

The occurrence of this message means that a divide operation using a 
divisor of was attempted by an object program. Consequently, the 
processing of that program was discontinued. 

*<file id>EOF NO LABEL <terminal reference> 

The occurrence of this message means that the end of an input file to 
an object program was reached and that there was no specification as to 
the action to be taken. Consequently, the processing of the program 
was discontinued. 

*<iob name> @<priority> * EOJ 

The occurrence of this message is an Indication that the execution of 
the named object program has come to a normal end. 
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*<compiler nameXJob name> @ <priority> * EOJ 

The occurrence of this message Is an indication that a compilation has 
come to a normal end, with no syntax errors. 

*EXCEPTIONEVENT IS READONLY <t«rininal r*f«r*nc«> 

The occurrence of this message means that an attempt was made to store 
a value In the EXCEPTIONEVENT task attribute of a task variable. (IPC 
message.) 

'EXCHANGE ABORTED-UNEQUAL ROW SIZES 

This message results when attempting to exchange disk rows and the 
rowsizes are unequal. 

•EXC I/O TIME<t«rminal r«f«r«nc»> 

This message occurs when the I/O time of a job exceeds the limit for 
I/O time specified for the job. (IPC message.) 

*EXC PROC TIME<t«rminal r«farenc«> 

This message occurs when the processor time of a job exceeds the limit 
for processor time specified for the job. (IPC message.) 

*EXPON OVERFLOW<t«rminal r«ff«r*nc*> 

The occurrence of this message means that an object program performed 
an operation that caused an exponent overflow to occur. Consequently, 
the processing of the program was discontinued. 

•EXPON UNDERFLO<»»rminal r«f«r«nc«> 

This message occurs when a value less than the minimum value for the 
exponent part of a real number is encountered. 

FILE CLOSE ERRORS 

- File not open. 

1 - Irrecoverable I/O error during close processing. 

2 - Record count error, 

3 - Block count error. 
A - Logic error. 
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•<fiU id> FILE NOT OPEN <t«rniinal r«f«r«ne«> 

The occurrence of this message means that an attempt was made to close 
a file that had not been opened. 

FILE OPEN ERRORS 

- File already open (OPEN called when file open). 

1 - Parity on label . 

2 - Parity while positioning file. 
3-11 legal translation. 

A - Incompatible blocking specification. 

5 - Output reverse Is not allowed. 

6 - Illegal Input reverse. 

7 - Minimum tape block size is 3 words. {Even parity 9 track tape.) 

8 - Bad label type. 

9 - Invalid OPEN code: MYUSE = 0. 

10 - Invalid input code. 

11 - Invalid output code. 

12 - Invalid I/O code. 

13 - COBOL random file with no actual key. 

14 - Open output on Illegal output file. (Directory, code, 

crunched, duplicated, conflict.) 

15 - Bad record type. 

16 - No memory for buffers. 

17 - Header too small for GUARDFILE name. 

18 - Error while setting up dupl lea ted file list. 

19 - Invalid direct I/O file. 

20 - Row size exceeds cylinder size (disk pack). 
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*ID EXPECTED <t«rminal r«f«r«nc«> 

This message occurs when NAMELlST encounters a value or Input for 
Initialization of a variable without having seen the variable in which 
to store that value. The program is terminated, unless a branch label 
for a data error is present. 

'ILLEGAL BAD GO TO<t«rin;nal r«f«r«nc«> 

This message occurs when an attempt is made to go to a label which is 
in another stack. {IPC message.) 

'ILLEGAL OWN ARRAY<t«rminal r«f«r«nc»> 

This message Is the result of an attempt to "process" or "call" a pro- 
cedure which contains OWN array declarations to be initiated as a 
dependent process. 

<iob id> ILLEGAL SWAP <t«rminat r«f»r«nc«> 

This message is a process fatal error message and is displayed if the 
following conditions are not met: 

1. Both arrays must have same dimensions, 

2. Both descriptors must describe dopevectors of the same size, 

3. Both descriptors must describe whole arrays, not subarrays, 
A. Both descriptors must reside in the same stack. 

'ILLEGAL VISIT<t*rminal r*f«r«nc«> 

This message occurs when an Illegal attempt has been made to "continue" 
to another task. {IPC message.) 

*<fil« id>INCOMPAT BLKING <t«rminal r«f«r*nc«> 

The occurrence of this message means that the actual blocking factor 
of the file does not coincide with that specified in the program. 

'INCORRECT 5YNTAX<»»rminal r*f«r«nc«> 

The occurrence of this message means that an attempt was made to replace 
a pointer-valued task attribute by a string having incorrect syntax. 
(IPC message.) 

'INITIATE ACTIVE TASK <t«rminal r*f*r«nc*> 

The occurrence of this message means that an attempt was made to reuse 
a task when the task was still active. 
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*INTGR OVERFLOW <terminal r«Ur«nce> 

The occurrence of this message means that an object program performed 
an operation that caused an Integer overflow to occur. Consequently, 
the processing of the program was discontinued. 

*INTRINSIC<intrinsic numb«r> MISSING 

This message occurs when a program attempts to call an Intrinsic whose 
<intrinsic number> is not found in the intrinsic file. This Is a fatal 
error; job terminates. 

*INV ADDRESS <t«rminol ref«r«nc«> 

The occurrence of this message means that an object program performed 
an operation which addressed a nonexistent memory location. Conse- 
quently, the processing of the program was discontinued. 

INVALID ADDRESS 

The occurrence of this message means that an attempt to gain access to 
an invalid address occurred. Processing of the job is discontinued. 

INVALID ARGUMENT TO A MATHEMATICAL 
INTRINSIC FUNCTION 

<mix index> <function name> <invalid arg> <parameter vaiue> 
< terminal reference> 

The occurrence of this message means that an Invalid argument to a 
mathematical intrinsic function has been encountered. The program^ is 
terminated and the message is displayed to the operator. In addition, 
the message is recorded in the system log. If a printer file is open 
at the time the error occurs, the message is also written on the printer 
file. The following intrinsic functions may generate an invalid argu- 
ment message: 



ALGAMA 


COS 


DSIN 


ALOG 


COSH 


DSQRT 


ALOGIO 


COTAN 


ERF 


ARCOS 


CSIN 


EXP 


ARSIN 


CSQRT 


GAMMA 


ATAN 


DATAN 


SIN 


ATAN2 


DAT AN 2 


SINH 


CABS 


DCOS 


SURT 


CCOS 


DEXP 


TAN 


CEXP 


DLOG 


TANH 


CLOG 


DLOG 1 


XTOl 
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*<unit mn«monic> INVALID CHR. IN COL. <integ«r> 

The occurrence of this message means that an Invalid character has 
appeared In a position other than character position 1 of a record. 
The <integer> denotes the column number. 

*INV INDEX<t«rminal r«f«r*nc«> 

The occurrence of this message means that an object program attempted 
to Index out of the range of an 'array being referenced. Consequently, 
processing of the program was discontinued. 

*INV PROG SYKtarminal r«f«r«nc*> 

This message means either an invalid tag configuration In the P Register 
or the Program Controller detected an invalid instruction (i.e., two 
consecutive VARI operators (OP = 95) or an attempt to strobe families 
A, B, C, D, E, J or K while In edit mode). Processing of the program 
Is discontinued. 

*INVLD ASTERISK <t«rminal r«ftr«nc*> 

This message occurs on NAMELtST Input when an asterisk has been found 
out of context for a repeat field. The program is terminated, unless 
a branch label for a data error Is present. 

*INVLD EXPONENT<t«rminal r«f«r«ne*> 

This message occurs on NAMELIST Input if the exponent specified is 
explicitly greater than 32,767. The program is terminated, unless a 
branch label for a data error is present. 

'INVLD INDEX<t*rminal r»f«r«nc«> 

This message occurs on NAMELIST Input when too many values are specified 
for initializing an array. The program Is terminated, unless a branch 
label for a data error Is present. 

*INVLO LT PAREN<»«rminal r«»»r»ne«> 

This message occurs on NAMELIST input, if a left parenthesis follows a 
simple variable. The program Is terminated, unless a branch label for 
a data error Is present. 

*INVLD NUMTYPE<t«rminal r<f«r«n€«> 

This message occurs on NAMELIST input In the following three cases: 

1. Storing logical to other than logical. 

2. Storing double precision to other than double precision. 

3. Storing complex to other than complex. 

PRINTED IN U.S. AMERICA 5000722 



B 6700 / B 7700 SYSTEM SOFTWARE HANDBOOK '•-71 



JOB ORIENTED MESSAGES 



The program is terminated, unless a branch label for a data error Is 
present. 

*INVLD RPT FLD<t«rminal rttf«r«nc«> 

This message occurs on NAHELIST Input if a zero or negative repeat field 
has been specified. The program Is terminated, unless a branch label 
for a data error Is present. 

'INVLD SIGN<t«rminal r«f«r«nc«> 

This message occurs on NAMELIST Input If signed data is assigned to a 
logical variable or string constant. The program is terminated, unless 
a branch label for a data error is present. 

*INVLD SUBSCRPKtarminal r«f*r«nc«> 

This message occurs on NAMELIST Input If the number of subscripts for 
an array name, when an attempt Is being made to store a value, does not 
agree with the number of subscripts In the declaration. The program is 
terminated, unless a branch label for a data error Is present. 

*INVLD VARIABLE<t*rininal r«f«r«nc*> 

This message occurs when NAMELIST finds an Identifier not in the 
NAMELIST declaration. The program is terminated, unless a branch label 
for a data error Is present. 

•INV OPERATOR<t«rminal r*(«r«nc«> 

The occurrence of this message means that a processor instruction has 
attempted to use the wrong type of control word or data. 

««il* id>INV OPN OUT REV<t*rminal r*f*r*nc*> 

The occurrence of this message means that an attempt has been made to 
open an output file reverse. 

*<fiU id>INV PER LBIEOTN <t«rminal rtUr«nc*> 

The occurrence of this message means that an attempt has been made to 
perform a label equation to an Incompatible unit type. 

<<fil« id>INV TRANSLATION<t«rminal r«f«r«nc«> 

This message occurs when an attempt Is made to open a file for which 
translation from external to Internal, or vice versa. Is not provided 
by the system hardware. 

Vfil* id>IO ERROR IN CLOSE <t«rminal r«f«r«nc«> 

The occurrence of this message means that an error was encountered while 
an attempt was being made to write a trailer label or to position a file. 
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•10 ERROR READING DISKHDR FROM TAPE 

The occurrence of this message means that an error was encountered while 
a disk file header was being read from a source (library maintenance) 
tape. 

I/O ERRORS 

- Read on a file after end-of-file action. 

1 - Read on a file that has not been properly opened. 

2 - Read parity (no use routine). 

3 - Write on a file that has not been properly opened. 
^ - No label for end-of-flle (or end-of-table) . 

5 " No label for parity. 

6 - No label for size error. 

7 - Bad unitfeature word. 

8 - Illegal read reverse. 

9 - General principles. 

10 - Seek for FORMATU U. 

11 - Seek on unopened COBOL file. 

12 - Seek on invalid file type. 

13 - Space forward on output file. 

14 - Illegal space backward. 

15 - Parity while positioning during seek. 

16 - COBOL disk seek on one buffer file. 

17 " Direct I/O using segmented array is illegal. 

18 - Unassigned. 

19 - Unassigned. 

20 - Bad control block (CB) number. 

21 - Wait on free CB. 

22 - Disk file security error. 
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I/O ERRORS (Com) 

23 - I/O on CB in use. 

24 - I/O on free CB («CP) . 

25 - I/O on locked event. 

•10 ERROR WRITING DISKHDR TO DEST [n] 

This message indicates that an error occurred while a disk file header 
was being written to output unit n. 

•lOTIME IS READONLY<terminal reference> 

The occurrence of this message means that a program attempted to store 
a value In the lOTlHE task attribute of a task variable. (IPC message.) 

•IRRECOVERABLE PARITY ERR DURING COPY ON DEST [n] 

The occurrence of this message means that an irrecoverable parity 
error occurred during library maintenance on output copy n. 

*IRRECOVERABLE PARITY ERR DURING COPY ON SOURCE 

The occurrence of this message means that an Irrecoverable parity error 
occurred during library maintenance on the source file. 

'IRRECOVERABLE PARITY ERROR ON DIRECTORY DEST[n] 

The occurrence of this message means that a parity error was encountered 
in writing a tape directory on the destination specified. 

|it«m on a control card} IS APPARENTLY MISSPELLED 

This message indicates that the I tern apparently misspelled is not 
recognized as a valid word in a control card. 

{r««*rv«d word [IS USED IMPROPERLY 

The occurrence of this message means that a syntactically incorrect use 
of a reserved word was encountered on a control card. 

*LIST EXCEEDS REC SZ<torfflinal rof«r«nc«> 

This message occurs on input, when the size of the list is greater than 
the record size and the file is a FORTRAN linl<ed file. The program is 
terminated unconditionally. 
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LOGICAL I/O ERRORS 

'ILLEGAL BACKWARD SEEK <file Id> 

'ILLEGAL READ REVERSE <file id> 

'ILLEGAL SEEK <f I le l<i> 

'LOGIC ERROR <flle id> 

'PARITY SEEK <file id> 

'READ ON OUTPUT FILE <file ld> 

'READ ON UNOPENED FILE <file id> (COBOL only) 

'READ REVERSE ON UNOPENED FILE <flle id> (COBOL only) 

'SEEK ON UNOPENED FILE <flle ld> (COBOL only) 

j. 'SPACE FORWARD ON OUTPUT FILE <flle ld> 

k. 'UNEXP 10 ERR 

I. 'WRITE ON INPUT FILE <file ld> 
'WRITE ON NON-DATA FILE <file id> 
'WRITE ON UNOPENED FILE <flle id> (COBOL only) 

■MEMORY EXCEEDEDOerminol r*f«r«nc<> 

This message Indicates a task in swapspace attempted to use more memory 
than was available in SWAPSPACE and the task Is discontinued. 

'MEMORY PARITY<terminal r«f*r«nc*> 

This message Is displayed when the system detects the transmission of 
an even number of bits between the processor and memory. Processing of 
the program Is discontinued. 

'MEMORY PROTECT<l*rminal r*f«r*nc» 

The occurrence of this message means a program tried to do a store 
operation Into a protected word (bit hB ON). Processing of the program 
Is discontinued. 

*MISSIN0 CODE FILE NAME<t*rminal r*f«r«nc«> 

The occurrence of this message means that an attempt was made to 
Initiate an external task without naming the code ftle for the task. 
(IPC message.) 
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•MSG SIZE ERROR <f«rminql ref«r«nc«> 

This message indicates an attempt was made to allocate a message 
larger tiian the rowsize of the message areas (512 default rowsize). 

*MUST BE CODE FILE<Urminal r*Ur*n»> 

The occurrence of this message means that In an attempt to initiate 
an external tasit the file was found but it was not a code file. (IPC 
message.) 

NAMELIST ERRORS (Each NAMELIST error message is explained at its own 
place in the proper section.) 

INVLD VARIABLE INVLD INDEX 

NUH>INTECER INVLD SUBSCRIPT 

DATA-NAMELIST INVLD LT PAREN 

ID EXPECTED INVLD NUHTYPE 

NUMBER REQD ASSIGN OP REQD 

RT PAREN REQD OUTPUT LIST REQD 

INVLD SIGN (UNFORMATTED I/O) 

INVLD ASTERISK NVLD CW-UNFORMATTED 10 

INVLD RPT FLD LIST EXCEEDS REC. SZ 

INVLD EXPONENT OUTPUT LIST TOO LONG 
COMPLX>HAXREAL 

*NEW INPUT ON <unit ip*cifi«r> 

This message indicates that an Input file has been opened for a job. 
The message occurs only If the OPEN option Is set. 

'NEW OUTPUT ON <unil tp*ci(i*r> 

This message indicates that an output file has been opened for a job. 
The message occurs only if the OPEN option is set. 

*N0 FILE<(iU lab(l> 

The occurrence of this message means that a program needs an input 
file which is apparently unavailable. If the file is labeled, It must 
be made available by, for example, the use of an IL message, if the 
file is not labeled, a UL message can be used. If it Is an optional 
file, an OF message is needed. If a program has read the final reel of 
a multivolume unlabeled file, an FR message is needed. 

•NON ANCESTRAL EXCEPTIONEVENT<l»rmlnol r«Ur»ne«> 

The occurrence of this message means that a task attempted to reference 
the EXCEPT I ONEVENT of a tasii variable for some task other than Itself or 
a direct ancestor. (IPC message.) 
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*NON-EXTERNAL RUN<Urminal r«f«r«nc«> 

The occurrence of this message means that an attempt was made to run 
something other than an external procedure. (IPC message.) 

Vpro«dur« nam«>NOT BOUND<t«rfflinal r«f«r«nc«> 

This message indicates an attempt was made to call a procedure that 
has not been bound into the program and the job is terminated. 

-NUM>INTEOER<t«nninal r«Ur«nc«> 

This message occurs on a NAHELIST read, If the variable type is INTEGER 
and the number type to be stored in the variable exceeds the maximum 
value for an INTEGER. The program is terminated, unless a branch label 
for a data error is present. 

*NVLD CW-UNFORMATTED IO<t«rminal r«ftr«nc«> 

This message occurs when an attempt is made to read unformatted data 
that has been written without specifying the FORTRAN option LINKWORD or 
when the file has been mispos i tioned. The program is terminated un- 
conditional ly. 

'OPERATOR DSED<t«rminal r«f«r«nc«> 

This message indicates the site operator has DSed the job thru SPO 
input, and the program is discontinued. 

*OUTPUT LIST REQD<Urminal r«Ur«nc«> 

This message occurs when an unformatted write statement contains no 
list. The program is terminated unconditionally. 

'OUTPUT LIST TOO LONO<t«rminal r*f«r«nc«> 

This message occurs on output when the list is greater than the record 
size and the file is not a FORTRAN linked file. The program is 
terminated unconditionally. 

*<(iU ID> PARITY ON LABEL<ttrminal r«f«r*nc*> 

The occurrence of this message means that a parity error was encountered 
when an attempt was being made to write a label. 

'PARITY ON PRESENCE BIT<t«rininol r«ftr«n<«> 

This message indicates a disk parity error occurred while trying to 
make present a program code or overlayable array area, and the job Is 
discontinued. 
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•<«!• ID> PAR NO lABEL<l«rminal r*i«r«nc*> 

The occurrence of this message means that an irrecoverable parity 
occurred on the designated file and no programmatic recovery facility 
was specified. Consequently, processing of the program in question was 
discontinued. 

'PROMD OP ERR<Urminal r»Ur«nc«> 

This message occurs if an attempt is made to execute an invaiid primary, 
family F or family G operator code. Processing of the program is dis- 
continued. 

•PRINT LIMIT EXCEEOED<t»rminal r«Ur«nc«> 

This message occurs when the print limit of a job is specified and has 
been exceeded and the job is discontinued. 

•PROCESSTIME IS READONLY<terminal r«Ur«nc«0 

The occurrence of this message means that an attempt was made to store 
a value in the PROCESSTIHE tasl< attribute of a task variable. (IPC 
message.) 

•PUNCH LIMIT EXCEEDED<t»rmlnal rif«r»nc«> 

This message indicates the punch limit of a job Is specified and has 
been exceeded. The job is discontinued. 

•QUEUE ATTRIBUTE ERROR:<n> 

Where n is defined as: 

- ACTIVE 

1 - SECURE 

2 - HEH0RYLIH1T 

3 - MEHORYSIZE 
1| - SIZE 

5 - MESSAGECOUNT 

6 - USERCOUKT 

7 - TANK 

8 - INSERTEVENT 

9 - HEADS I ZE 

•<«!• ID> READ AFTER EOf <Urminal r«Ur»n«> 

This message Indicates that a user's COBOL program attempted to read a 
file after the end-of-flie had been sensed. 
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*<fil« ID>READ BEFORE OPEN<l*rniinal r*f*r«nc«> 

This message Indicates that a user's COBOL program attempted to read 
a file before It had been opened. 

READONLY TASK AHRIBUTE 

^''LrSi.'""'"^ messages will occur when an attempt Is made to set 
a READONLY task attribute: 

a. BDNAHE READONLY ON ACTIVE TASK 

6. EXCEPTIONEVENT IS READONLY 

c. FILECARDS READONLY ON ACTIVE TASK 

d. HISTORY READONLY 

e. lOTlME IS READONLY 

f. PROCESSTIME IS READONLY 

g. PROCESSTYPE IS READONLY 
h. STACKHISTORY IS READONLY 
I. STACKNO IS READONLY 

j. STACKSIZE READONLY ON ACTIVE TASK 

k. STARTTIME IS READONLY 

I. STOPPOINT STORED 

m. TASKERROR IS READONLY 

n. TASKFILE IS READONLY 

o. TASKTYPE IS READONLY 

•RT PAREN REOD<t«rminol r*f*r«nc«> 

This message occurs on NAMELIST Input when a right parenthesis is missing 
following a complex value or subscript list for an array. The program 
IS terminated, unless a branch label for a data error Is present. 

•<iob ID> e<priorily><cor* r*quir*m*nt>$CHD 

This message Indicates that a Job has been scheduled for execution but 
has not yet gotten a BOJ . The <core requirement. Is the percentage 
Un tenths of a percent) of the total memory configuration needed to run 
the job. 
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*SEO ARRAY ERR<t«rminal r«f«ranc«> 

The segmented array error message Is displayed when a program attempts 
to make an access to data outside the range of an area descriptor by 
the use of the string operators (SCAN, TRANSFER, COMPARE, or SKIP). 

This condition Indicates a programming error either In the Initial 
specification of the array size or in the calculation of the limits to 
be used In a SCAN, REPLACE, or COMPARE statement. 

SELECT ERROR<fiU lab«l>:<job nain«>,<Urminal r«Ur«nc«> 

The occurrence of this message means that an object program attempted 
to perform an Invalid operation on the designated file (for example, 
the rewinding of a card reader file). Consequently, processing of the 
program was discontinued. 

<job ID>SORT ERROR #<int»g«r>DSED ^(•rminal r«f«r«ne»> 

The sort errors currently Implemented are as follows: 

1 - Record size passed to sort Is <I . 

2 - Count of sort Input and output records does not agree. 

3 - User's supplied parameters, disk size and number of tapes, 

are both 0. 

k - Amount of disk specified Is Insufficient to do a disk-only 
sort— stringing phase. 

5 - Amount of disk specified is Insufficient to do a disk-only 

sort— merging phase. 

6 - Input file already open. 

7 - Irrecoverable parity error on user's Input or output files 

or block # of work file retrieval out of sequence (memdump 
also occurs) . 

8 - Insufficient size of output file. 

9 - Output file already open. 

10 - Irrecoverable parity error while writing sort work file. 

11 - Irrecoverable parity error while reading sort work file. 

12 - Irrecoverable parity error while reading or writing sort con- 

trol file. 
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*<»mpiUr namtXiob nam*>@<priority> • SNTX 

The occurrence of this message is an indication that a compilation has 
been terminated and one or more syntax errors have been detected. 

*<iob ID>SNTX<nn> @<s«qu*nc* numb*r> 

The SNTX message Is displayed when a syntax error Is detected by the 
ALGOL compiler. <nn> ranges from 1 to 10. 

•STACKNO IS READONLY<t*rmlnal r»Ur*n»> 

This message indicates that an attempt was made to store a value in the 
STACKNO tasl( attribute of a tasl( variable. (IPC message.) 

•STACK OVERFLOW<t*rminal r*(*r«n»> 

The occurrence of this message means that the operation performed by 
an object program caused its stack to overflow its limit. Consequently, 
processing of the program was discontinued. The 7STACK = <nn> can be 
used to extend the stacl<. 

•STACK UN0ERFlOW<t«riiiinal r>rtr«n»> 

This message indicates that a program attempted to reference below 
BOSR or S Register less than F Register. 

•STARTTIME IS READONLY<l«riiiinal r*ftr«nc» 

This message Indicates that an attempt was made to store a value in the 
STARTTIHE task attribute of a task variable. (IPC message.) 

•STOPPOINT STORED<t*rmlnal r<f«r*n»> 

This message indicates that an attempt was made to store a value in the 
STOPPOINT task attribute of a task variable. (IPC message.) 

•SUSPENDED BY SYSTEM 

This message occurs when running under UORKINGSET, a task is suspended. 
A PK or DS response may be entered. 

•TASKTYPE IS READONLY<l*rminol r«f«r*nc«> 

This message indicates that an attempt was made to store a value in the 
TASKTYPE task attribute of a task variable. (IPC message.) 

•Oil* ID> UNMATCHED OENEALOOY<t*rminal r«Urtn»> 

This message Indicates that the genealogy encountered on the file that 
was opened does not match that described by the file declaration. 
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*UP LEVEL AnACH<t*rminal r«Ur«nc«> 

This message indicates the program attempted to attach Itself to an 
UPLEVEL event, and the program Is discontinued at this point. 

•VISIT NON ACTIVE TASK<t«rrainal r«f»r«n«e> 

This message indicates that an attempt was made to execute a CONTINUE 
statement for a task variable that Is inactive. (IPC message.) 

*<fiU 1D>WRIT BEFOR OPEN<t«rminal r«f«r«nc*> 

This message indicates that a user's COBOL program attempted to write 
on an output file before it had been opened. 

•<unit mnemonic WRITE LOCKOUT 

The occurrence of this message means that a program attempted to write 
on a magnetic tape with no write ring or on a disk pack which had been 
locked out with hardware lockout switches. 
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INTRODUCTION 

The Work Flow Management system includes enhanced facilities for 
user control of task initiation and resource allocation. These en- 
hancements are a natural expansion of the existing system control 
statements into a complete Work Flow Language. This language allows 
the user to describe each job as a network of specific interrelated 
tasks . 

As operating systems have evolved and become more sophisticated, so have 
the demands upon efficient job control. To enable the control statement 
interpreter to handle all modes of operation, the LOADCONTROL/CONTROLCARD 
implementation has been replaced with a Work Flow Language (WFL) compiler. 
The WFL compiler is a true compiler; it produces B 6700 machine code to 
control the tasks within a job as the user prescribes. Thus, all user 
jobs are "programs" written in the Work Flow Language. The WFL compiler 
is invoked any time a user job is entered at a system card reader or 
supervisory console, or "zipped" from a user program. The WFL compiler 
performs the fol lowing functions : 

a. Syntactically checks the accepted Work Flow statement input. 

b. Generates machine code to handle the tasks which constitute 
the job as specified by the Work Flow statements. 

c. Generates the jobfile disk file for the job. 

Control information may be entered into the system in either of two 
ways: as control statements entered at the input keyboard or on 
punched cards called control cards entered at a card reader. 

INPUT KEYBOARD 

From the input keyboard, single control statements or lists of control 
statements separated by semicolons may be entered in the form shown 
below. 

< 1 nval id character> <control statement 1 i st> <ETX> 

^invalid character> ::= ? 

<contro! statement I ist> : := <control statement> | 

< control statement 1 i st> ; < control 

statement> 
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System control statements Input via a supervisory console do not require 

an initial "?" character unless the statement begins with one of the 

character pairs "Dl", "DA", or "PB". Thus, the following is a valid 
example of a system control statement input from the SPO: 



RUN LINK/TEST(^); END 



PUNCHED CARDS 



Control cards are distinguished from other punched cards by the occur- 
rence of an invalid character in Column 1. The Invalid character in 
Column 1 is required on the first card of a control statement deck and 
may appear on subsequent cards to serve as a control statement delimiter. 

On the input keyboard, the invalid character is the 7 symbol. On control 
cards, the Invalid character is not the ? but some Invalid combination 
of punches, as for example 1-2-3. Throughout this section the invalid 
character is represented by the symbol <!>. 

If two or more control statements are punched on a single card, they 
must be separated by semicolons. The Invalid character Is neither 
needed nor allowed following a semicolon. 

BASIC ELEMENTS AND CONSTRUCTS 

The Work Flow Language uses the EBCDIC character set. Any invalid 
EBCDIC character is Illegal with the following exception: an invalid 
EBCDIC character in column t of a control card (denoted by <l>) will be 
treated as a semicolon. Moreover, an <l> is required (l) on the first 
card of any job, (2) on the first card following any data deck, and (3) 
on the last card of any job. 

Identifiers and numbers are terminated by any non-alphanumeric character 
{Including a blank). Cards can be terminated by a percent sign {%) , or 
by a minus (-) or a period (.), If such a character Is syntactically In- 
valid. The remainder of the card is not scanned. 

The following diagrams describe the syntax of the basic constructs of 
the Work Flow Language. 
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digit: 



T=::^ 



alphanumeric: 



I ^ letter 1 — 

I — »-digi t ' 



character: 

any valid EBCDIC character 1 

Identi f ier (contextual 1y referred to as real , Bool ean, 1 abel , sub rout ine, 
file, or task identifier): 



-Jfe 2 i-j* letter 

-dig it- 



string char: 

any character except quote (") " 

f i lename: 



-^''•H T — MT^ ^ alphanumerii 



— f 1 7' ^ stri ngchar — | »- 



-J^Sfe^ ». stringchar 
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any sequence of characters not containing a semicolon (;), 

period (.), percent sign (Z) , hyphen (-) , (or, in some contexts, a left 
bracket) . 



-digi t- 



-M?^ digit- 



Exampl es : 

t dent i f iers 



Z123 
ABC123 





l/C/3 
"A?-1B'7C 


strings 


"ABC" 


1 nteger 


-12 

+750 

123'i5 


Reals 


-3. 11416 
.2 
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JOBS 

A job is a "program" written in WFL . During execution, a job will 
run out of Its own "Job stack". A task is any process initiated by a 
job. Examples of tasks are: user program execution, compilations, 
library maintenance, etc. The job stack is used to control the execu- 
tion of tasks; it may contain simple variables, task variables, and 
files. 



Job Format: 



-JOB — ►■f i lenamei 



T 



5tatement-i-*-END JOB- 




■•■ declarat ions- 



task 

attribute 
■ assignment 



user statement - 



iser statement - 

♦-statement r-»- END - 



T — r*- statement r-^ t 



Example : 



JOB A/ JOB; USER C/0; C0RE=50O0; 

PRINTLIHIT=100; 
BEGIN 

COMPILE X WITH ALGOL TO LIBRARY; 

DATA CARD 



RUN X; 
END JOB 



DECLARATIONS 

All files and subroutines must be declared. A file declaration may 
specify attributes of the file. A subroutine declaration specifies the 
statements contained in the subroutine. Subroutines may run in the job 
stack (see subroutine statement) or in a separate stack (see process 
statement). A file declared in the job is called a "giobal" file. It 
may be passed to tasks by file equation (see task attribute assignment). 
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With the exception of files and subroutines, all job stack variables 
(reals, Booleans, tasks, and labels) are determined by the! r first usage. 

Declarations format : 



-f*- Fl LE~T*-f i lename — ►-(— T-*-file attribute ass ignment-p*-) - 




' 

















Example : 

<l> JOB EXAMPLE SYKTAX; 
BEGIN 

FILE GLOBAL (KIND»DISK,MAXRECS IZE=30) ; * FILE DECLARATION 
SUBROUTINE SUB; I START OF SUBROUTINE DECLARATION 
BEGIN 

RUN X; FILE FI:=GLOBAL; % INITIATES PROGRAM X, THE 
RUN Y; FILE F2:=GL0BAL; % FILE WITH INTERNAL NAME "Fl" WILL 
% BE THE GLOBAL FILE "GLOBAL" 
END; % END OF SUBROUTINE DECLARATION 
RUN Z; % THIS IS THE FIRST EXECUTABLE STATEMENT 
PROCESS SUB; % INITIATES THE SUBROUTINE AS A DEPENDENT 

% PROCESS IN ITS OWN STACK 
SUB; X INITIATES SUBROUTINE IN JOB STACK 
L: I:- I; ^ 1 IS A REAL VARIABLE, L IS A LABEL 
B:- TRUE; » B IS A BOOLEAN VARIABLE 
RUN X [TJ; » T IS A TASK VARIABLE 
GO L); * LI IS A LABEL 
LI: 
<l> END JOB 

TASK ATTRIBUTES 

Task attributes allow the job to monitor and control the execution of 

tasks. Misusing an attribute (e.g., setting a read-only attribute) will 

result in a run-time error. Task attributes can be specified at two 
times: 

a. When the code file is compiled (see compile statement). 

b. When the task is initiated (see task initiation statements 
and task statements) . 

If these sources conflict, the attributes specified at initiation will 
override. 
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Example : 

COMPILE X ALGOL LIBRARY; 

ALGOL PRIORlTY-50; % SETS ALGOL'S PRIORITY 
PRI0RITY.60; t SETS PRIORITY IN CODE FILE X 

RUN X; % RUNS AT PRIORITY 60 

RUN X; 

PRIORITY.7O; % OVERRIDES COMPILED-IN PRIORITY 

Task Attributes Formats: 



Task Attribute: 



- CORE 

- F I LE 

-integer task attribute - 
■- name task attribute 

- OPTION 

-real task attribute 



Integer Task Attribute: 



-^PRINTLIMIT — 

-- PRIORITY 

-^PROCESSTIME- 
-- PUNCHLIHIT — 

-► RESTART 

-► STACK 



■ STACKNO — 

• STATION — 

• STATUS 

- SUBSPACES ■ 

■ TARGET 

■ TYPE 



Real Task Attribute: 



■ STOPPOINT - 

■ VALUE 
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The task attribute assignments have the following format: 



-^FILEt Vfilen, 




f i le i denti f ier - 



-integer task attribute — i jr*- integer 

L*- =*i-^.real i dent i f ier- 

-name task attribute , r*.f i lename - 



TTT 



X 



"CTT 



-►AUTORM- 

-^ BASE 

-»-BDBASE - 
CCLIST- 



|—^ PUNCH ^ 

l—^PRINTER— ^ 



-»CODE 

-►DSED 

-» FAULT 

FILES 

—>■ i nteger- 
-»LONG 



-real task attribute , j p^real 

U-= — * L-*- real identifier ' 

FILE ATTRIBUTES (FILE EQUATION) 

File attributes for files internal to tasks may also be set. The files 
are identified by their internal names. When a file is opened, file 
attributes are taken from the file declaration and merged with the file 
attributes contained in the task (those in the task will override). 

Example : 

RUN X; 

FILE Fl - X/y DISK; 

FILE F2 (TITLE-X/V, KIND-DISK, 1 NTHOOE-BCL) ; 

FILE F3 :-C; 
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Numeric File Attribute: 



•- AREACLASS — 

■*- AREAS 

-»- AREAS 1 ZE 

-» BLOCKS IZE — 

-^ BUFFERS 

-» COPIES 

-- CYCLE 

-► DATE 

-► FILETYPE 

-►HAXRECSIZE- 
-► MINRECSIZE- 

-«- PAGES IZE 

-► REEL 

-► SAVEFACTOR - 

-► SERIALNO 

— ► SIZEOFFSET- 

-► SIZE2 

-► TIHELIMIT- 
— ^ UN 1 TNO 



Boolean File Attribute: 



- CYLINDERHODE - 

■ DIRECT — 

■ DUPLICATED — 

- FLEXIBLE 

• INTERCHANGE — 

- OPTIONAL 

- REAOCHECK 

- SINGLE 



-»• SINGLEPACK- 



Name Fi le Attribute: 



SECURITYGUARD • 
• TITLE 
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The file attribute assignments have the following format: 



"""""LJbss'J 



rAHH lAGECONTHOL - 



-1 1— r* l-TLASA j- 

T y— CTL360 1-^ 



'-»--' »■ MEDIUM •-] 

' SUPEK »J 

'"l T-i— •■roRWARD T 

I 1 1— fc REVERSE J 



TTTX 



•- roRHHESSAGE - 



"TTTT" 



TTTT 



""UT^' 



T 1-^ OMITTKO T- 

f j— » OHITTEMOF-^ 
* -• *—» STAND* HD *J 



STANDARD - 
CLOSED - 



" must 1 T — I— » 

'"-'"•■'""""^TX" 



l—* SECURED-^ 



SECURED -t 

NOH STANMRD - 



— 1 [ 1 — *■ NON STANI 

I , . J I— ^STANUABD 



•■ SECUBITTfTVPE 



f—. Ki fRlTTtl.Tt.U T 

j \—^ SAVE ^ 

" I — •■ TEMPORARY -J 

1 J— p- CUSSA —T— 

I— ». - J 1— B- PRIVATE -vJ 



•■SECURITYUSE- 



l—» SECURED -<J 






HEDIUHFAST- 
MEDIUMSLOV- 
SLO» 



CHARACTERS - 
FALSE — 
TRUE - 
■ORDS- 
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-PETAPE - 

-TAPE 

- TAPE? — 
-TAPE9- 



- backup device - 

-DISPLAY 

-PACK 

-PRINTER 

-PUNCH 



-PRINTER- 

• PUNCH 

-PAPER 



p« — OTHERWISE-" — 1 
1« OR-" 



■ BACKUP - 
-BACK UP- 



- backup devi ce -^ 



-| j-p» READER — T- 

L»-tapeJ L^PUNCH ' 



Mode Type: 



■ ASCI I - 

• BCL 

■ EBCDIC - 

• HEX 
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The statements of the Work Flow Language govern task initiations, 
data labeling, and control of job execution. The statements format is 
as follows: 



re 



label ident i f ier- 



-^assignment statement- 
s-change statement 

-^compile statement 

copy statement 

create statement 

-^data statement 

display statement 

file statement 

-^ go statement 

-»■ i f statement 

-►■log statement 

on statement 

-^password statement — 

-^PB statement 

-►-process statement 

remove statement 

-». rewi nd statement 

run statement 

SCR statement 



-security statement 

-♦■subroutine statement- 

tasi^ statement 

user statement 

wai t statement 



N-I— •-statement-'— *- END -►- 



TASK INITIATION 

Task in i tiat ion statements (compi le, copy, log , PB , process , run , and 
SCR) are used to start user programs and system functions in separate 
stacks. The process statement will initiate the task asynchronously, 
that is, the job stack will execute concurrently with the task stack. 
All other task initiation statements will run synchronously, i.e., the 
execution of the job is suspended until the task is completed. 

Example : 



RUN X; 

RUN Y; 

% Program X 



it is finished, program Y will run. 
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A task variable may be attached to the task in order to monitor and 
control the execution of the task. {See task attributes.) A task 
variable may be attached to only one task at a time. Thus, 

RUN X [T] ; COPY A TO B[T] 

is permissible but 

PROCESS COMPILE X WITH ALGOL [T] ; 
RUN Y It] ; 

would result in a run-time error. 

DATA DECKS 

Tasks may reference two types of card decks. Internal decks are entered 
as part of the job and put in the job file by the WFL compiler. Exter- 
nal decks are entered separately from the job and are read directly from 
the card reader. The CDONLY option, which is controlled from the oper- 
ator console, determines whether or not external decks may be referenced. 
If the option is reset, then (1) any task which cannot find a card deck 
in its Job file will hang on a no-file until the deck appears in a physi- 
cal reader, and (2) if a data statement is read which is external to any 
job, the card reader will be labeled and made available to user programs. 

If the option is set, then (1) any task which cannot find a card deck 
in its job file will be DSed, and (2) if a data statement is read which 
is external to any job, a syntax error occurs and the deck will be 
flushed from the reader. 

A task may read internal decks either (l) located between its task invo- 
cation statement and the next task invocation statement (referred to as 
a local deck), or (2) located before the first task invocation statement 
of the job (referred to as a global deck). 

A global deck must have a name, but local decks may be unnamed. When a 
task tries to open a card file, it will look for the first unread local 
deck with no name or the correct name. If It cannot find a local deck, 
it will look for the first global deck with the correct name. (Note 
that local decks are read only once, but global decks may be referenced 
many times. Each program opening a global deck will start reading at the 
beginning of the deck.) 

The statement following a BCL or EBCDIC data deck must start with an 
invalid character In column 1. Binary decks must be terminated by a 
binary end (BEND) card. The BEND card Is only a data terminator; it 
does not act as an END card for the job. 
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NOTE 

Binary data decks are terminated with a binary end (BEND) 
card (shown below) rather than with an ordinary END card. 
The BEND card can be keypunched, but the easiest way to 
produce one is with a short program in which a binary card 
punch file is opened and immediately closed. The BEND card 
is punched as the ending record of the binary card punch 
file. Only the first it8 columns of the BEND card are 
checked by the system in order that EOF on 51 -column binary 
decks will be recognized. 
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JOB EXECUTION 

Job execution control statements govern the flow of execution of a job 
and provide parameters used by the job stack. These statements are as 
fol lows: 



Assignment 


f. 


GO 


k 


Security 


Change 


g- 


IF 


1 


Subroutin 


Create 


h. 


On 


m 


Task 


Display 


i . 


Password 


n 


User 


File 


i- 


Rewind 


o 


Wait 



WFL STATEMENT SYNTAX DIAGRAMS 

The following diagrams describe the syntax of the WFt statements. A 
brief description is provided for each of these statements which are 
presented in alphabetical order. 
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ASSIGNMENT STATEMENTS 

The assignment statement is used to change the value of real and Boolean 
vari ables . 

Examples 



N 
I 
1 


- 1; 

- -3.1; 

- X + 2; 




A 


• X * Y; 




RESULT 


- T (VALUE) + F (MAXRECSIZE) 




B 


= TRUE; 




BY 


- NOT FALSE; 




8 


- 1 <5; 




READY 


- T IS ABORTED; 




B 


= F ISNT PRESENT; 




B 


- FILE X/Y IS PRESENT; 




AORB 


= A OR B; 




Assignm 


snt Statement: 


primary 



i-»-real pr 



primary— 1 — ^ + — ^t — real primary - 

1: " 



- boo lean i den t i f i e r - 



-*-NOT ' 

-*- boolean expression ■ 



boolean primary - 



Boolean Primary: 



- task state - 

. TRUE 



-»• F I LE — ^ f i 1 ename — I— r^ I S 



•■file ident 

•-boolean identifier 



1 1 ename — j — p*- 1 S j — »• ' 

tifier 1 
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-task identifie 






- COMPLETED - 
-SCHEDULED- 

- ACTIVE 

-STOPPED 

-ABORTED 



COMPLETE DOK- 
L»COMPILEDOK — 



Real Primary: 



1? 



real ident i f ier 
e i dent i f ier 



( *-real f i le attri bute ^)- 

ask identi f ier »-( -| — »-i nteger task attri bute — j — ■ 

t — ».real task attribute T 



Boolean Expression: 

■-boolean primary • 



r 



1 rr^' 



- real primary - 



OR* 
L-^EQvJ 
-real relati 



-^boolean primary- 



-real pr imary -*-i 



Real Relation: 



LSS- 

-» GEIl- 
GTR- 
LEO- 
EdL- 

-^NEa- 



CHANGE STATEMENT 

The change statement changes the titles of files on dislc or disk pack. 

Examples : 

CHANGE X TO Vl 

CHANGE X TO Y, X/X TO Y/Y ON MYPACK, 
XX TO YY ON PACK; 
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Change Statement: 

CHANGE-r*-f ilename - 



tON — j»- volume specification' 
FROM* 



COMPILE STATEMENT 

The compile statement is used to initiate compilers. The first filename 
is the name of the code file. The compiler is either specified by using 
a recognized system compiler or by preceding the filename with the word 
WITH. The compiler name is prefixed by directory "SYSTEM". If the re- 
sulting file is not a compiler code file, the job will be DSed . The dis- 
position of the code file Is given following the compiler name: 

a. GO: execute the code file if it compiles. 

b. LIBRARY: lock the code file in the disl< directory if it corn- 
pi 1 es . 

c. SYNTAX: compile for syntax only. 

(SYNTAX cannot be specified in conjunction with other disposi- 
tions.) 

If a task identifier is specified following the code file name, and the 
GO disposition has been specified, the task variable is attached to the 
execution of the code file. The task variable specified following the 
compiler name is attached to the compiler. Task attributes may be as- 
signed to the compiler by prefacing them by any system recognized com- 
piler name. 

Example : 

ALGOL STACK=IOO 

Attributes not preceded by a compiler name are permanently attached to 
the code file. These can only be constants, not variables. These values 

are put in the stack whenever compiled program is executed unless the 
attribute values are overridden by run-time task attribute values. (See 
run statement.) 



Example 



COMPILE X ALGOL; 

COMPILE X/Y GT WITH A/B CT LIBRARY AND GO; 

COMPILER FILE CARD = C/D DISK; 

PL PRIORITY = 55; 

FILE F(TITLE=Y/Z); STACK=100; 
COMPILE A PL/ I SYNTAX; 
BIND X/Y BINDER LIBRARY; 
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Compile Statement 
COMP I LE -r- f i 1 enaroe 
eiND 



T — I 1— r compi ler name -i r 

L*- comment— I "-*-/— ^ fi lename"^ 



[Z 



^" [ — ►■task identifier—*-] — ' 



tasl< 
'-^[-*- identifier -*-]-' 



-SYNTAX - 
-LIBFiARY- 
-GO 



■-comment- 



tasl< attribute 
■^ass ignment — 



Compi ler Name: 



• ALGOL 

■ BAS I C 

■ BINDER 

- COBOL 

- COMP I LER - 

- DCALGOL — 

■ ESPOL 

■ FORTRAN — 

-NDL • 

■PL 



COPY STATEMENT 

The copy statement is used to copy files to and from disk, tapes, and 
disk packs. 

Examples : 

a. COPY X TO Y [Tj ; 

Copies a file X from disk to a tape Y, attaching task 
variable T to the copying task. 

b. COPY X FROM Y; 

Copies file X from tape Y to disk. 

If the verb ADD is used, the files are copied to each destination where 
they are not already present. 
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Examples : 

ADD X/Y FROM T; 



Copies file X/Y from tape T to disk, if there is not currently a 
disk file named X/Y. 



ADD Z/= FROM TO TO R (KIND'^PACK) , TO DISK. 



May load different files to R and to disk, depending on what is 
present on each device. 



Copy Statement: 

AK> ' l— » l> COMPABZ J 






L.-..,. ,,J 



Volume Specification: 



L 



( — '•■AREACUSS" - 



-integer ' ►) ' 



t: 



►(-*-[» SIKGLEPACKi 

-►UKITf 
me — I 



. » THUe— »- 
L.. FALSE -»J 

nteger 



INTERCHANGE 



C 



TZ 



IT' 

FALSE-J 



-UNITNO = — ^integer 
-KINO --1 — ►PETAPE- 
-TAPE9 - 
.TAPE7- 
■• TAPE — 
. PACK — 
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— ^ a] phanumeric - 



-r^ 



— »- stringchar - 



IT 



CREATE STATEMENT 



The create statement is used to create a directory with a given scramble 
modulus. 

Example : 

CREATE X WITH 10 ; 
Create Statement: 

CREATE ► f i lename 



*■ f I lenamCT r-^ I 

L-WITH-J 



DATA STATEMENT 

• DATA 



-EBCDIC - 
-BCL 



Example : 



<\> JOB X; 
BEGIN 

DATA GLOBAL/DECKl ; 



<\> BINARY GLOBAL/0ECK2; 



(BEND CARD) 
<l> RUN X; 
8CL 



<1> COHPILE A FORTRAN; 
DATA 



<l> END JOB 
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DISPLAY STATEMENT 

The display statement displays a string on the operator console. 
Examples : 

DISPLAY "HI THERE"; 
DISPLAY "4##7"; 

Display Statement: 

DISPLAY ..string 1 

FILE STATEMENT 

The file statement allows the job to set file attributes in global files. 

Examples : 

G(KIND-DISK, MAXRECSIZE=J); 
RUN X; FILE F;»G; 

Fi le Statement: 

file identifier ^ ( -T — ^file attribute ass ignment — p^) 



ass ignment i fc ) 
-^ ' 



GO STATEMENT 

The go statement transfers control to the label specified. If the label 
is not specified, the syntax error will be given. 

Example : 

GO TO L; 



L: RUN X; 

LI : L2: RUN Y; 
GO L2: 

Go Statement: 

^GOt p*. label identifier- 



UJ 



PRINTED IN U.S. AMERICA 5000722 



B «700 / B 7700 SYSTEM SOFTWARE HANDBOOK 



WORK FLOW LANGUAGE 



IF STATEMENT 

The if statement is used to mal<e decisions within the job. 
Examples : 

IF T IS EOJ THEN GO TO L 

ELSE I :- 1; 
IF T{VALUE) - 5 THEN RUN X; 
IF FILE X/V ISNT PRESENT THEN 

DISPLAY "NO FILE X/Y" 
ELSE RUN X/Y; 



■ boolean expression — »-THEN- 



- ELSE statement 



LOG STATEMENT 



The log statement initiates SYSTEH/LOGANALYZER passing the following 
text up to a semicolon or left bracket as parameter. 

Examp 1 e : 



LOG MIX=123; 
lOTIHE-SO; 

Log Statement: 

LOG — comment. 

►[- 
ON STATEMENT 



"=^ 1 i '. I I 

-identifier-^]-' ' ' »■; task attribute assignment-' — ' 



On statements allow the job stack to take user-specified action when 
(1) a task is abnormally terminated (ON FAULT), or (2) the system is 
Halt/Loaded and the job must be restarted {ON RESTART). 

The statement "ON FAULT, statement" enables the condition FAULT. If 
any task subsequently Is terminated abnormally, the statement will be 
executed. This includes operator or programmatic DS as well as arith- 
metic faults. 

The statement "ON FAULT;" disables the condition. An abnormal task ter- 
mination will not have any effect on the job. 

Similarly, the RESTART condition can be enabled and disabled by the 
statements: 

ON RESTART, statement; 
ON RESTART; 
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Only one statement for each condition can be enabled at one time. Thus, 
any ON statement disables any previous ON statements for the same condi- 
tion, if a subroutine executes an ON statement while running in the job 
stacl<, it will disable any previous ON statements until the subroutine 
is finished or the ON condition is disabled. Subroutine exit or an ON 
RESTART; will return the restart condition to what it was before the sub- 
routine was called. 

if the enabled statement does not execute a GO statement, the job will 
resume executing at the point where it would have been if the statement 
had been disabled. 

On statement; 

ON I »■ FAULT 



N I »-F. 



Example : 

<l> JOB X; 
BEGIN 

SUBROUTINE SUB; 
BEGIN 

ON FAULT, I CALL THIS "SUB FAULT" 
BEGIN 

DISPLAY "SUB FAULT TAKEN"; 
GO ERR; 
END; % END OF ON STATEMENT 
RUN X; * IF X ABORTS, "SUB FAULT TAKEN" IS DISPLAYED 
ON FAULT; 

RUN Y; * IF Y ABORTS, "JOB FAULT" IS DISPLAYED 
END; t END OF SUB 

RUN A; * IF A ABORTS, NO FAULT IS EXECUTED 
ON FAULT, DISPLAY "JOB FAULT"; % CALL THIS "JOB FAULT" 
RUN B; % IF B ABORTS, "JOB FAULT" IS DISPLAYED 
SUB; 
ERR: 
<l> END JOB 

If the MCP is Halt/Loaded during execution of a job, the job will be 
restarted at the most recent point where no tasl<s were running. Typi- 
cally, this is just prior to the last initiation. The values of all 
real and Boolean variables are saved during Halt/Load. All tasl<s and 
files are reinitialized to their original values. Thus, the informa- 
tion in tasks and files is not available after the job is restarted. 
If the job uses this information, it may be necessary to include an 
ON RESTART statement which executes a "go" to a point where the tasks 
and files are set up. 
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<l> JOB X; 
BEGIN 
FILE G; 

ON RESTART, GO TO L; 
L: RUN PI: FILE F1:=G; 
RUN P2; FILE F2:=G; 
<l> END JOB 

If a Halt/Load occurs while P2 is running, the job would normally not 
rerun PI since the restart point would be just prior to the initiation 
of P2, However, P2 nees the information written to file G by PI. 
Therefore, an ON statement is executed to ensure that the restart point 
is prior to the initiation of P2. 

PASSWORD STATEMENT 

The password statement is used to change the password of the job's 
current user code. 

Example : 

PASSWORD = XYZ; 
Password Statement : 

PASSWORD 



PB STATEMENT 

The PB statement initiates SYSTEM/BACKUP passing the following text up 
to a semicolon or left bracket as a parameter. 



Example 



PB D123/000 LINE SAVE[T] ; 
PRINTLIMIT=IOO; 



PB Statement: 
PB comment - 



task 
'-^[-*- identifier-^] 



I ' »■ ; task attribute ass ignment-l— t 
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PROCESS STATEMENT 

The process statement initiates tasl(S asynclironously . If a tasl< variable 
is attaciied, tile job stacl< can subsequently wait for the process to term- 
inate (see wait statement), monitor its execution (see if statement), or 
alter its execution (see task statement). The job does not terminate 
until all asynchronous tasks have terminated. The name displayed on the 
screen for a compile, run, etc., is the program name; the name of a pro- 
cessed subroutine is the job name. 

Examples : 



PROCESS X/Y (3,1) [Tl; 
PFtOCESS SUB; C0RE=100; 
PROCESS COPY A TO B [Tl ; 

Process Statement: 



1 rn ^' fi r 

l^parameters-i U-[ ident i f ier-^]-l '-^comment-' 



-»• subroutine identi f ier - 

-^compile statement 

-►■copy statement 

-*.log statement 

PB statement 

run statement 

L-^SCR statement 



task attribute 
-»- ; assignment - 



REMOVE STATEMENT 

The remove statement removes files from disk or disk pack. 
Example : 

REMOVE X,Y ON MYPACK, X/Y ON PACK, Z 
Remove Statement: 

REMOVE — i-^f i lename - 



^ON — j*-v 

»■ FROM-' 



"ON — j-^-volume spei 
- FROM 



;i f i cation ' 
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REWIND STATEMENT 

The rewind statement rewinds a global file. 
Example : 

RUN X; FILE FI:=G; 
Rewind Statement: 

REWIND ►"file identifier 1 

RUN STATEMENT 

The run statement is used to initiate a previously compiled code file. 
If the file named is not a code file, the job stack will be discontinued 
(DSed) . If the file is not present on the disk, the job stack will dis- 
play a "no file:" message on the operator console and wait for the file. 
The types of parameters that may be passed to a task are as follows: 

a. Numbers : integers , real s , real variables , and strings preceded 
by a character size. 

b. Booleans: the values TRUE and FLASE, and Boolean variables. 

c. Arrays: strings without character sizes. 

Parameter checking against the codeflle will be done, and any mismatches 
will DS the job. All parameters are passed by value (i.e., the value 
of a variable in the job stack cannot be changed by passing it to a task). 
Binary, octal, and hex strings will be passed as reals (i.e., RUN(l"10", 
3"2l", V'lF") is the same as RUN(2,17,31) ) and must be less than one 
word in length. BCL, ASCII, and EBCDIC strings are left-adjusted, blank- 
filled and passed as reals. They must also be less than one word in 
length. 

Untyped strings are assumed to be EBCDIC and passed as arrays. The last 
word is filled with EBCDIC blanks if necessary. 

A list of task attribute assignments can be given which will set attri- 
butes in the task's stack. These values will override any attributes 
set when the code file was compiled. (See task attributes and the com- 
pi le statement.) 
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Examp I e : 



RUN X; 

RUN A/B [T]; STACK - 500; 

RUN A/B (1,1, FALSE, 3. 1^4, 3"123", "HI THERE") 
[Til; FILE C ;• G; BONAHE-X; 
FILE F(BLOCKSIZE - 30, Kl ND-PETAPE) , 

G(KIND-DISK) ; 
FILE H- ABC/D DISK; 
RUN A/B THIS IS A COMMENT; VALUE -I; 



Run Statement: 

RUN — "jf i lename 
EXECUTE* 



w 



m 



c: 



[ iden 



' l—comment-J I task attribute j T 
1. 1 ^; assignment — ' — ' 

ask I 

tifier-*-] ' 



- boolean identi f ier - 



SCR STATEMENT 

The SCR statement initiates the HCP on-line maintenance intrinsic. The 
intrinsic requires a data deck when initiated from the card reader. See 
the On-Line Maintenance and Test (MAT) Language Information Manual, 
Form No. 5OOOI69. ~ 
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Example : 

SCR [Tl; 
SCR Statement: 



SCR- 



rtc: 



n merit — ' — • 



task 
- [-^identi f ier — »- ]■ 



task attribute assigi 



SECURITY STATEMENT 



The security statement is used to change the security of a file on disk 
of disk pack. 



Examples : 



SECURITY AB/XY PRIVATE 10; 
SECURITY A/8 ON MYPACK CLASSB XVZ; 



Security Statement: 



L ^ 

^ ON -r*- f i 1 ename*! f*- 
L^PACK — 



-PRIVATE 
-CLASSA 



L»-CLASSB— ^f i lename - 



SUBROUTINE STATEMENT 

The subroutine statement executes a subroutine in the job stack. 
Example : 

SUB; 
Subroutine Statement: 

^subroutine identifier 1 



PRINTED IN U.S. AMERICA 



B 6700 / B 7700 SYSTEM SOFTWARE HANDBOOK 



WORK FLOW LANGUAGE 



TASK STATEMENT 

The task statement allows the job to set task attributes in task 
variables. 

Example : 

T(PRIORITY J; FILE F(KI NO=DI SK) ) ; 
RUN X T ; 

Task Statement: 

task identifier »-(-T*-task attribute assignment- 



r 



USER STATEMENT 

The user statement changes the user code of the job. If this statement 
appears in a subroutine running in a separate stack, it only changes the 
user code of the subroutine; the user code of the job stack is not 
changed. 

Examples : 

USER A/B; 
USER X; 

The correct password must be given if there is one connected with the 
user code. 

User Statement: 

USER »-f i lename 1 



WAIT STATEMENT 

The wait statement allows the job stack to suspend execution until 
specified conditions are met. These conditions are as follows: 

a. WAIT (OK): will suspend the job stack until the operator 
enters an "OK" from the console. 

b. WAIT (integer): will wait the specified number of seconds 
and then resume execution. 

Example : WAIT(5); will suspend the job stack for 5 seconds. 

c. WAIT (task identifier): will wait until the task has completed; 
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Example : WAIT(T) 

d. WAIT (task identifier (numeric task attribute) real relation, 
real primary); will wait until either the task Is completed 
or the task attribute satisfies the relation. The job stack 
is waiting for its own "EXCEPT! ONEVENT". It will not resume 
execution until this event is caused and one of the above con- 
ditions is met. The job's EXCEPTI ONEVENT can be caused by 
the fol lowi ng : 

1. A task changing its task state. 

2. The operator entering a "HI" from the console. 
3- Programmati cal ly from the task. 

Example : in an ALGOL task 

CAUSE (MYSELF. EXCEPT I ONTASK. EXCEPTI ONEVENT) 
Example : 

WAIT (T(VALUE) >0) ; 

e. WAIT (task state): will wait until either the task is completed 
or achieves the given state. 

Example : WAIT (T IS STOPPED); 

f. WAIT (file identifier): waits until the file is present. 
This statement opens the file and will display a no file on 
the operator console if the file is absent. 



Wait Statement: 
WAIT *-{- 



ident if ier 

-»- integer — 



•- task — I *■ 

enti f ier '-»-( — »■ integer task — »-) — »- real »-reaI-^ 



task 
" state 



re 1 at ion primary 
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Ut i 1 i ties of the B 6700 SYSTEM 



Name of Source File 



Util ity 

Card Line SYMBOL/CARDLINE 

Compare SYMBOL/COMPARE 

Dump Analyzer SVHBOL/DUMPANALYZER 

Guardfile Generation SYHBOL/GUAROFl LE 



lAO Mapper 
Intrinsic Functions 

Library Maintenance 

List Directory 

Log Analyzer 

Makeuser 

Patch 

Printer Backup 

SPO Hardcopy 



SYMBOL/ I ADMAPPER 

SYMBOL/ESPOLINTRINSICS 
SYHBOL/ALGOLINTRiNSICS 

SYMBOL/MAINTENANCE 

SYMBOL/LISTDI RECTORY 

SYMBOL/ LOGANALYZER 

SYMBOL/MAKEUSER 

SYMBOL/PATCH 

SYMBOL/BACKUP 

SYMBOL/ HARDCOPY 



SPO Hardcopy Printing SYMBOL/PR I NTCOPY 

Tape Label SYMBOL/RLTABLEGEN 

Recogni t ion 



Name of Object File 

SYSTEH/CARDLINE 

SYSTEM/COMPARE 

SVSTEM/DUHPANALYZER 

SYSTEM/ GUARDFILE 

SYSTEM/ lADMAPPER 

SYSTEM/ INTRiNSlCS 
SY5TEH/INTRIN5ICS 

SYSTEM/MAINTENANCE 

SYSTEM/ LlSTOl RECTORY 

SYSTEM/LOGANALYZER 

SYSTEM/HAKEUSER 

SYSTEM/PATCH 

SYSTEM/ BACKUP 

SYSTEM/ HARDCOPY 

SYSTEM/PRINTCOPY 

SYSTEM/RLTABLEGEN 



See also "MAINTENANCE OF STANDARD SOFTWARE" 
in Section 3- 

CARD LINE 

Use : 

The SYSTEM/CARDLINE utility program is used to list a BCL or EBCDIC 
data deck on the line printer. In addition to a listing of the card 
images, a card count and sequence check Is included. The field checked 
for sequence errors is columns 73 " 80. 
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In addition to the card-to-print function, other utility functions may 
be accomplished by label equating the program's input and/or output 
files. The input file is named CARD, and the output file is named LINE. 

For example, 

To punch a BCL, EBCDIC, or BINARY card deck, the LINE file should be 

equated to a card punch file as follows: 

<l> RUN SYSTEM/CARDLINE 
; FILE LINE(KIND=PUNCH,EXTMOOE=BCL) 

When SYSTEM/CARDLINE is run with a tasWalue of 1, the output is single 
spaced. The spacing is identical to the taskvalue. (Default Is double- 
spacing . ) 

For example: 

<l> RUN SYSTEM/CARDLINE; VALUE = 1 
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Card Deck for Listing EBCDIC or BCL Data: 




<l>fIUN srSTEM/CAROLINE 

OR 
<I>exECUTE SYSTEM /CAROLINE 



Card Deck for Punching EBCDIC, BCL, or Binary Data: 




Refer to Binary Statement for information on the BEND (binary end) card. 

COMPARE 

Use : 

To compare (by use of the program SYSTEM/COMPARE) one or more pairs of 
files. The program performs a bit-by-bit comparison on each record of 
each pair of files. If the records are not identical or if one of the 
specified files is not present, an appropriate error message is 
printed. The comparison of a pair of files is terminated after five 
unsuccessful record comparisons have been made, and the program skips 
to the next pair of files. 

The symbolic code for the compare program is supplied on the symbol 
tape in a file named SYMBOL/COMPARE; the object code is supplied on 
the system tape in a file named SYSTEM/COMPARE. 
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After the program SYSTEM/COMPARE has been copied from the system tape, 
it may be executed by using the following card deck: 




The names of the files to be compared are specified as follows: the 
name of the first file is punched on a card, starting in card column 1, 
The file name must be immediately followed by a period. The name of 
the second file Is punched on the same card, starting in column 25- 
This file name must also be followed by a period. For example, the 
card illustrated below specifies that the files "SYSTEM/ALGOL" and 
"SYST/ALGOL" are to be compared. 



Messages: 

When the program starts to compare the two files, the following 
message is printed out: 

NOW COMPARING FILES <first fileid>. AND <second fileid>. 

If the files are identical, no further action is taken; the program 
will compare the next pair of files. If the files are not identical 
or if one file is not present, one of the following messages will be 

printed . 

v.-v.-iV--;:-v;-;.-;.-;v/:FiLES PRESENT BUT DIFFER IN BLOCKING SPECS 
■;:;;.'-;-'";.-;:.v-A-;:-;,-F[LES DIFFER IN RECORD NUMBER <RECORD NO. BEING COMPARED> 
.■.-.■.■;;-;;.'.-;;-:t-;,-;-;V.--F|RST FILE NOT IN DIRECTORY, NOT COMPARED. 
,.:---A-Av,-;:;-:-;:-;^ SECOND FILE NOT IN DIRECTORY, NOT COMPARED. 

:■:;■;;.:■;.■:;':.■..■:-.■::■: EOF ERROR 

■.-■:.':-;,-;::'T-A.;:-;.-;:-;,-pAR|TY ERROR IN FIRST FILE 
.■^.-■--------PARITY ERROR IN SECOND FILE 

;.:■,-■;::',"■:■,■"■:.■:■;-:■:■;: CARD READER PARITY ERROR 
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DUMP ANALYZER "^'""" 

Use: 

To produce {by use of the program SYSTEM/DUMPANALYZER) a concise, 
readable memory dump from the memory dump tape (labeled MEMORY/DUMP) 
generated by the MCP. 

Dump Tape (HEHORY/DUMP) : 

The memory dump tape may be either a seven-track, nonreturn-zero (NRZ) 
tape; a nine-track NRZ tape; or a phase-encoded (PE) tape. This tape 
may be produced in any of the following ways: 

a. By entering the DP system input message. 

b. By forcing a memory dump from the memory tester and the MDL 
panels. 

c. If the initialization function TERMINATE is reset, by the 
abnormal termination of a job. 

NOTE 

If a memory dump is generated before a 
Halt-Load operation has been completed, 
the memory dump will go directly to a 
line printer and SYSTEM/DUMPANALYZER 
cannot be used. 

Co mpilation of SYSTEM/DUMPANALYZER: 

The card deck shown below may be used in compiling the program 
SYSTEM/DUMPANALYZER. 



rz 



<:!> DATA 



<l> ALGOL FILE TAPE {T1TLE=SYMB0L/DUMPANALYZER) 



COMPILE SYSTEM/DUMPANALYZER ALGOL LIBRARY 

In addition to the normal options of the ALGOL compiler (section 8), 
there is a single user option that can be specified in the compilation 
deck for SYSTEM/OUMPANALYZER. This option, which is unique to SYSTEM/ 
DUMPANALVZER and which affects the running of the program SYSTEM/ 
DUMPANALYZER, governs the printing out of the contents of memory areas. 
If the analysis is to be printed out on a line printer that is 132 
characters wide, the control card S SET LONGPRINTER should be included 
in the compilation deck. Then seven memory words will be printed out 
on each line. If, on the other hand, the analysis is to be printed out 
on a line printer that is only 120 characters wide, this control card 
should be omitted from the compilation deck, and only six memory words 
will be printed on a line. 

Running of SYSTEM/DUMPANALYZER: 

The run-time options for SYSTEM/DUMPANALYZER are as follows: 
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RUN-TIME OPTIONS 


Option 


Default if File 
Options is Not 
Present 


Default If File 
Options is 

Present 


Action if Set 


SINGLE 


Set (True) 


Set (True) 


To produce a single-spaced dump of memory areas. 


AREADUMP 


Set (True) 


Set (True) 


To break up a dump into areas according to memory links. 


AVAILDUMP 


Set (True) 


Reset (False) 


To cause the contents of all available areas of memory 
to be dumped. Automatically sets AREADUMP. 


CODEDUHP 


Set (True) 


Reset (False) 


To cause the contents of code segments to be dumped in 
full. Automatically sets AREADUMP. 


LINKDUHP 


Set (True) 


Reset (False) 


To cause the links for each area of memory to be printed 
after the area heading. Automatically sets AREADUMP. 


MIX =■ ALL 


Set (True) 


Reset (False) 


To cause the dumping and analysis of all stacks that have 
an entry in the stack vector. 


MIX - ACTIVE 


Reset (False) 


Reset (False) 


To cause the dumping and analysis of the stacks of only 
those jobs that are active at the time of the dump. 


MIX-<mix Index 1 ist> 


Reset (False) 


Reset (False^ 


To cause the dumping and analysis of the stack or stacks 
of the job or jobs which are specified (as, for example, 
MIX « 11*9, or MIX - ]kS 326 257). 


DOUBLE 


Reset (False) 


Reset (False) 


To produce a double-spaced dump of memory areas. 


FULLDUMP 


Reset (False) 


Reset (False) 


To produce an analyzed dump that Is equivalent to that 
produced by setting the following options: MIX - ALL, 
AREADUMP, LINKOUMP, COOEDUMP, and AVAILDUMP. 


RAWDUHP 


Reset (False) 


Reset (False) 


To produce an uninterpreted dump of all of core memory. 


STACKSONLY 


Reset (False) 


Reset (False) 


To produce stack dumps only (all other options 
are set to false). 
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UTILITIES 



The foHowing execution deck produces an analysis that is satisfactory 
for most purposes. Naturally, if a deeper analysis is desired, other 
options may be specified and added to the file labeled OPTIONS; if a 
less detailed analysis is desired, however, some options may be omitted. 



MIX = ALL 







<\> DATA OPTIONS (for option cards punched in EBCDIC) 

or 
<l> BCL OPTIONS (for option cards punched in BCL) 

or 
<l> EBCDIC OPTIONS (for option cards punched in EBCDIC) 



1> EXECUTE SYSTEM/DUMPANALYZER 



The program SYSTEM/DUMPANALYZER can also be executed by the entry of the 
DA system input message at the input keyboard. In this case, the 
settings of the run-time options are as follows: 



Option 
SINGLE 
AREADUMP 

AVAILDUMP 

COOEDUMP 

LINKDUMP 

RAWDUMP 

STACKSONLY 

MIX=ALL 



Setting 
Set (True) 
Set (True) 
Set (True) 
Set (True) 
Set (True) 
Reset (False) 
Reset (False) 
Set (True) 



PRINTED IN U.S. AMERICA 



B 6700 / B 7700 SYSTEM SOFTWARE HANDBOOK 



UTILITIES 



Handling of Errors Encountered During the Execution of 
SYSTEH/DUMPANALYZER: 

Parity Errors on Dump Tape: If a parity error occurs on the dump tape, 
a line of slashes and a message that specifies the last valid memory 
address found on the tape wiii be printed on the first page of dump 
analyzer output. SYSTEM/DUHPANALYZER proceeds, using the last valid 
address as the maximum address. 

Bad Memory Links: If a memory link that is bad or apparently bad is 
encountered by SYSTEM/DUMPANALYZER , a line of slashes and an explanatory 
message is printed out. The area having the bad link is dumped in raw 
form, and the analysis continues with the next area. 

Invalid index: If an invalid index occurs during the dumping of a 
stack, a "croak" message appears and the dump analyzer goes on to the 
next stack. 

Error Messages: 

BAD LINK TAGS 

The occurrence of this message indicates that the tag fields of the 
memory links are bad. 

INCONSISTENT UNKS 

The occurrence of this message indicates that there is a discrepancy 
between the memory links surrounding an area of memory. 

UNK Z OF NEXT AREA NOT ACCESSABLE (lic) 

This message is produced when the sum of the contents of the size field 
within the first memory link and the address of the first memory link 
is greater than the maximum memory address known to SYSTEM/DUMPANALYZER 
for the dump being analyzed. 
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6UARDFILE 



This program builds guard files, consisting of two basic entry types 
(PROGRAM NAME and USERCODE), that are acceptable in structure and format 
to the MCP procedure that checks a user's access rights when he opens a 
guarded (CLASSB) file. It is planned that future releases will add up- 
dating capabilities, $-card options, more entry types, sequencing, etc. 
Those planning to make patches that would alter the characteristics of 
the GUARDFILE produced are advised to refer to the MCP procedure 
"CHECKGUARDFILE" at ^(6280000. 

CharactsrisHcs of a Guard FiU 

The fonnat of a guard file is as follows: 

Record #0 

Word - "GUARD" - To help identify this as a legitimate guard 
file. 

Word 1 - Type of guard file. 

Currently this must have a value of 1 and is provided to 
allow use of guard files having different characteristics. 

Word 2 - Update Count 

To serve as an aid in determining the necessity for 
garbage col lection. 

Word 4 - Default Access Rights. 

Words 5-59 - Reserved for future use. 

Records 1 -n 

These records contain tlie access control entries with as many 
entries per record as is possible without record boundary over- 
flow. The format for an individual entry is as follows: 

Word - Entry information word 

Next entry word index = ^7:6 
Next entry record number = 'tliH 

Sub-entry word index = 27:6 
Sub-entry record number = 21:14 
Access rights =7:3 
Entry type = 4:5 
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Words 1-n Access qualification information: 

For entry types I and 2, which are usercode and 
program name respectively, this will be a standard- 
form name. Other entry types are undefined. 

A sample guard file structure (type I) is as follows: 

DEFAULT - NO 

USER A (NO) 

PROGRAM PI (RO) 

PROGRAM P2 (RO) 

PROGRAM P3 (RW) 
USER B (RW) 
USER C (RO) 
USER D (RW) 
PROGRAM P (RO) 

USER Ul (RW) 

USER U2 (RW) 

USER UN (RW) 
Semantics: 

The items in parentheses associated with each condition indicate the 
access rights to be allowed if that condition is satisfied. Vertical 
branches are the path to be followed if a condition Is not satisfied and 
the horizontal branches cause additional checlcing to be done If It is 
satisfied. The search will halt if a condition is not satisfied and 
there Is no vertical branch, or if the condition Is satisfied and there 
IS no horizontal branch. Access rights will be granted based on the last 
satisfied condition. 

Examp 1 e : 

Referring to the type 1 guard file structure, user A would have no 
access to a file guarded by this guard file unless he was using programs 
PI, P2 or P3. rf he was using P2, he would have read-only access. User 
B would have unrestricted read-write access. Any user running program 
P would be allowed to read the file, while those listed could also write 



A guard file may be associated ' 
attribute SECURITY6UARD, I.e., 



Ith a file via the pointer-valued file 
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REPLACE F.SECURITYGUARD BY "MY/GUARDFILE." 

or through the use of the SECURITY control statement, i.e.: 

<I>SECURITY MYFILENAME CLASSB MY/GUARDFILE 

The guard file may also appear In label equations and declarations. 
Restrictions on these actions are the same as those on the other 
security-related attributes. A guard file may have any secur itytype, 
but this will only be checked when the guard file is accessed as a 
regular file. When a guard file is associated with a file, its name 
will be placed in that file's header. When this is encountered at file 
open time, the system will first search the directory of the guarded 
file's owner and then the general system directory, unless the guard 
file name was specified using the "*" or "(X)" constructs. Failure to 
find a named guard file or inconsistency in its format will result In 
denial of access to the guarded file. Guard files will not be invoked 
for the "owner" of a guarded file; class A security will be used in- 
stead. 

Syntax for SYSTEM /OUARDFILE 

<guard file entry> : := <primary entry> | DEFAULT <access rights> 

<primary entry> : i" <entry typo <access list>; 

<entry type> : :- USERCODE \ PROGRAM 

<access I ist> : := <access entry> | <access entry>, <access list> 

<access entry> ::= <qual i f ication list> | [<qual i f Ication list>] 
USING <primary entry> | <qual if ication entry> 
USING <primary entry> 

<qual if ication list> : := <qual If ication entry> \ 

<qual if Ication entry> ,<qual i f icat ion list> 

<qual i f ication entry> ::= <qual i f ication info> <access rights> 

<qual if ication info> : :» <usercode> | <program name> 

<access rights> ::» <empty> | -RW | =R0 | =W0 ] =X0 | =N0 

Semantics: 

The mnemonics for <access rights> indicate read-write, read-only, 
write-only, execute-only, and no access respectively. If <access rights> 
Is <empty>, then the next <access rights> specified in the <access list> 
will be assigned. If none is found, then a default value of "NO" is 
used. <qual if icat ion info> will be interpreted according to the entry 
type for the access list in which It appears. The "DEFAULT" entry 
specifies the access to be granted if no conditions are satisfied in 
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the search of the guard file. If used, it must be alone on the first 
card. If it is not used, the default value will be "NO" access. On 
succeeding cards, all 80 columns may be used; hence, sequence numbers 
are not allowed. All program names encountered will be assumed to have 
the usercode of the person creating the guard file unless otherwise 
specified. 

Example : 

To create the guard file illustrated in paragraph entitled "Character- 
istics of a Guard File", the following card deck might be used: 

<l> USER ME 

<l> RUN SySTEM/GUARDFILE 

<1> FILE GUARD (TITLE • MYGUARDFILE) 

<1> EBCDIC CARD 

DEFAULT = NO 

USERCODE A=NO 

USING PROGRAM PI, P2=R0, P3=RW; 

, B=RW, C-RO, 0-RU; 

PROGRAM 

P=R0 USING 

USERCODE Ul , U2, UN=R«; ; 
<1> END 

HARDCOPY 

The programs SVSTEM/HARDCOPY and SYSTEM/PR I NTCOPV provide a means of 
capturing supervisory input and output messages within a disk file and 
printing the contents of that file. 

SYSTEM/HARDCOPY utilizes the DCALGOL intrinsic ATTACHSPOQ to establish 
itself as the recipient of copies of all supervisory console traffic. 
It reformats all received messages replacing control characters by 
blanks, condensing multiple blanks to a single blank, and dividing mes- 
sages into 132 character print lines. It writes the reformatted messages 
into a disk file titled HARDCOPY. All I/O to HARDCOPY is done with 
direct I/O, and HARDCOPY is a protected file. 

Whenever SYSTEM/HARDCOPY is initiated, it looks for an existing file 
called HARDCOPY. If HARDCOPY already exists, the last recorded message 
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is found, and a message indicating a restart is added at the end. A 
message giving the time and date is inserted every fifteen minutes. 

Immediately following the writing of the first message that extends 
into the last area of HARDCOPY, the title of HARDCOPY is changed to 
HARDCOPiES/<integer>. {The <integer> is incremented by one each time 
a new HARDCOPIES is created.) At this time a run of SYSTEM/PR I NTCOPY 
is requested to print the full file, and remove it from the directory. 

In addition to the automatic printing of full files, it is possible 
to print the HARDCOPY in sequential pieces. Each time a HI system input 
message is directed at SYSTEM/HARDCOPY, a run of SYSTEM/PRINTCOPY is 
requested that will print all messages since the last HI initiated print- 
ing. 

SYSTEM/PRINTCOPY is essentially a special disk-to-printer utility pro- 
gram. It reads records from a HARDCOPY disl< file and writes them to a 
direct line printer file. It takes one parameter, an integer value that 
determines what file and how much of the file will be printed. If the 
parameter equals zero, the file selected is HARDCOPY. If the parameter 
is non-zero, then HARDCOP I ES/<integer> (where <integer> Is the minimum 
length representation of the absolute value of the parameter) is se- 
lected. 

In addition, if the sign bit of the parameter is equal to 0, the entire 
file will be printed; but if it is equal to 1, then only unprlnted 
portions will be printed (used only for Hl-initiated printing). 

HARDCOPY Disk FiU Format 

Record zero of a HARDCOPY file contains information used for naming 
copies and controlling SYSTEM/PRINTCOPY. The contents of HARDCOPY 
record zero are outlined as follows: 

WORD CONTENTS 



Word the integer that will be/was used for renaming 

the file. 

Word 1 the record number containing the word following 

the last recorded message. 

Word 2 the number of valid words within the record 

spec! f led by Word 1 . 

Word 3 the record number containing the first word of 

the first message that has not been printed by 
means of a HI input command. 

Word It the number of words within the record specified 

by Word 3 that precede the first unprinted record. 

Word 6-29 not used. 
PRINTED IN U.S. AMERICA 5000722 



B 6700 / B 7700 SYSTEM SOFTWARE HANDBOOK 



UTILITIES 



The remaining records contain supervisory console messages. The first 
word of each message has bits 47:8 = 1 and bits 39;40 equal to the 
length of the message (not including the first word) as five EBCDIC 
numeric characters. The last message in the file is always followed 
by a word with all bits equal to zero. 

Us* of th« Programs 

In order to run In an environment which will contain/maintain a hard 
copy of SPO traffic, it is necessary to: 

a. Ensure that SYSTEM/HARDCOPY and SYSTEM/PRINTCOPY are loaded 
Into disk. 

b. Ensure that SYSTEM/HARDCOPY has been specified as a "SUPERVISOR" 
program. This can be done by typing in the control message: 

CS SYSTEM/HARDCOPY 

Specifying SYSTEM/HARDCOPY as a "SUPERVISOR" program will 
cause the program to be automatically Initiated after a 
Halt/Load. 

NOTE 

The proper format of the HI system input message is: 

<mix no> HI 

The effect of this message Is to cause the 
EXCEPTIONEVENT of the running stack denoted 
by <mix no>. 

lADMAPPER 

To assist the user in utilizing the Installation Allocated Disk (IAD) 
portions of the MCP, a utility program called SYSTEM/ lADMAPPER has been 
provided. lADMAPPER allows the user to create headers on disk, modify 
headers on disk, and save to tape selected headers of files on disk. 
If desired, the header attributes can be listed from disk headers or 
headers saved to tape by using this program. SYMBOL/ lADMAPPER is written 
in DCALGOL. 

Input to lADMAPPER is an EBCDIC card deck consisting of one or more 
lADMAPPER statements. There are only six different statements Indicated 
by the keywords CREATE, UPDATE, SAVE, RESTORE, LIST, and STOP. SAVE 
requires a scratch tape and RESTORE requires a previously created tape 
In the format of the tape which SAVE creates. This format is a series 
of two or more records grouped In pairs. The first word of every record 
contains the size of the record (binary value). The tape Is created and 
read using FILETYPE 2 (fixed length block - variable length record) with 
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the blockslze = 2048 words. The first record of each parr contains a 
sequence counter in word II] for consistency checking followed by the 
file identifier. The second record contains the actual header. 

Card input is free form with blanks being delimiters. Columns 1-72 are 
scanned and sequence numbers if appearing will be ignored. Comnients 
may appear on any card if preceded by a percent sign. An unconditional 
listing of any headers which have been modified or in any way accessed 
is provided. 

No attempt has been made to outguess the user or the MCP as to the 
correct combination of header attributes or their acceptable values. 
Syntax checking of the lADMAPPER statements has been provided. If a 
syntax error occurs, the last item scanned, type of statement, and the 
card image (with an underlying asterisk to indicate columns scanned) 
will be printed. The job will terminate. If, when reading or writing 
a header, an error result is returned, a one line notation to that 
effect will be printed, and, following that, the same information will 
appear as when a syntax error occurs; the job is then terminated. 

Syntax for 5Y5TEM/IADMAPPER 

<IAD input> ::= <IAD statement>; ] <IAD input> <IAO statement>; 

<IAD statement> : := <create statement> | <update statement> | 
<save statement> I <restore statement> | 
<list statement> | <stop statement> 

<create statement> ::= CREATE: <file header attributes Iist> 

<ijpdate statement> : := UPDATE: <file header attributes list> 

<file header attributes list> : :=- <file header attributes> | 

<file header attributes 1 ist>, 
<file header attributes> 

<file header attributes> : := <file I D> (<header attribute tist>) 

<header attribute list> : := <header attribute> | <header attribute 
list>, <header attribute> 

<header attribute> : := <header attribute mnemonio = <value> 

<save statement> : := SAVE TO <external tape I D> ; <file header Iist> 

<restore statement> ::= RESTORE FROM <external tape ID>:<file header 
Iist> I RESTORE FROM <external tape I D> 

<list statement^ : :- LIST: <file ID Iist> | LIST FROM <external 
tape ID>: <file ID list> | LIST FROM 
<external tape I D> 

<stop 5tatement> : := STOP 
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<file 10 list> ::- <file I D> \ <fiU ID list>, <file I D> 

<file header list> : := <file header de5ignation> | <file header 
list>, <file header designation> 

<fjle header designation> : := <file I D> | <file header attributes> 

<header attribute mnemonio : ;= 

ROUADDRESS (<inte9er>) | 

ROWSIZE I 

MAXRECSIZE | 

BLOCKS I ZE j 

MINRECSIZE 1 

EOFSEGMENT | 

EOFBITS I 

SAUEFACTOR | 

MODE I 

FILETYPE I 

UNITS I 

SI2EM0DE I 

SIZEOFFSET | 

SIZE2 1 

DATE ! 

LASTACCESSDATE | 

ROUS 

IAD I (Boolean valued) 

FILEKIND I 

DUPLICATED | (Boolean valued) 

ROUCLASS ( integer ) 

<value> : := <integer> | <boolean constant> ] <addres5 spec! f icat ion> 

<boolean constant> : ;= TRUE | FALSE 

<address sped f icat ion> : := EU <integer> ADDRESS <integer> 

Semantics : 

The CREATE statement creates a header on disk for each file indicated 
in the list. No default header attributes are assumed, and any file 
of the same name will be overridden and the previous header attributes 
lost. 

The UPDATE statement assumes a file header on disk and the only header 
attributes changed will be the attributes explicitly appearing in the 
header attribute list. 

The SAVE statement reads the indicated file headers from disk, updates 
header attributes as appropriate, and writes the updated header to a 
tape with the name specified. 
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The RESTORE statement looks on the tape specified for each file header 
n turn as indicated in the <file header list>. When the file header 
s found, the header is modified by any attributes listed and the header 
s written on disk. If a header for this file already existed on disk, 
t will be overridden. If the file is not found, an error occurs. This 
search on tape is sequential and requires that the <fi!e header 1 ist> be 
ordered such that the tape search will be sequential and forward. if 
the colon Is replaced by a semicolon and no <file header list> occurs, 
every header on tape is written to disk with no change in the header 
attributes. 

The LIST statement has two functions: to list the headers from a tape 
as created by the SAVE statement and to list headers of files appearing 
on disk. When listing from tape all the headers may be listed when the 
file list does not appear, or if the file list is used, only those 
headers for the files indicated will be listed. If FROM <external tape 
ID> does not appear in the LIST statement, disk is assumed and the file 
list must appear. No attribute list is allowed in the LIST statement. 

The optional STOP statement terminates scanning of any remaining input 
cards. 

Valid lADMAPPER StoUmvnts 

CREATE: A/B (R0WS=11. HAXRECSIZE=30, ROWSl ZE=l8l 66, 

R0WADDRESS(9)=EU 2 ADDRESS 0); 
UPDATE: C(DATE=72001 ) ; 
SAVE TO HEADER/TAPE: A/B, C(R0WS=25); 
RESTORE FROM HEADER/TAPE: A/B(DATE=72005) ; 
RESTORE FROH HEADER/TAPE; 
LIST: A/B, C; 
LIST FROM HEADER/TAPE; 
LIST FROM HEADER/TAPE: C; 
STOP; 

Invalid lADMAPPER Stat»m«nts 

CREATE: A/B; % NO ATTRIBUTE LIST 

UPDATE; % NO FILE HEADERS SPECIFIED 

SAVE: C; ^ NO TAPE NAME GIVEN 

SAVE TO HEADER/TAPE; % NO FILE HEADERS SPECIFIED 

RESTORE TO HEADER/TAPE: C; % MISSING FROM 

LIST- % NO FILE LIST FOR DISK 

LIST: C(R0WS=5); % ATTRIBUTES NOT ALLOWED IN LIST 

Example 1 . 

In order to gain a better understanding of how these functions may be 
used, assume the existence of Installation "A" which does all of Its 
critical data processing against two "large" data files, a NAMEAND- 
AODRESS file and a HISTORY file. Since "A" is a B 6700 installation 
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currently running under our standard software, these files are stored 
on head-per-track disk files with backup on magnetic tape. 

Conversion 



To take advantage of Installation Allocated Disk, "A" must first decide 
which files he wishes to convert to IAD, how many SU's he requires for 
storing each file and which SU's he wishes to use. Let's assume that 
"A" has a disk configuration as follows: 

EU 1 SU 1 - 5 
EU 2 SU 1 , 2, 3 
EU 3 SU 1 , 2, 3 

"A" has determined through running Li STDI RECTORY {or lADMAPPER) that the 
NAMEANDADORESS file and the HISTORY file each require two SU's for stor- 
age. "A" decides to structure his files so that the NAMEANDADDRESS file 
will reside on EU 2, SU's 1 and 2. SU 3 will be reserved for backup. 
Similarly, the HISTORY file will reside on the first two SU's of EU 3 
with the third SU reserved for backup. "A" can accomplish this by: 

1. Doing a COLD START with the following parameter card 

RESERVE EU 2, 3 

After the COLD START EU's 2 and 3 are set aside as IAD and 
EU I is used for MCP, system files, programs, overlay space, 
etc. 

2. Loading SYSTEM/ lADMAPPER from the system tape and inputting 
the following deck. 

<l> RUN SYSTEH/IADMAPPER; EBCDIC 
CREATE: NAMEANDADDRESS (ROUS = 2, ROWSIZE - 218000, 

MAXRECSIZE = 30, ROWADDRESS(O) - EU 2 ADDRESS 0, 
ROWADDRESS(l) = EU 2 ADDRESS 213000), 
HISTORY (ROUS - 2, ROWSIZE - 218000, MAXRECSIZE - 30, 
ROUADDRESS(O) - EU 3 ADDRESS 0, 
ROUADDRESS(l) - EU 3 ADDRESS 218000), 
NAMEANDADDRESSROWl (ROWS - 1, ROWSIZE = 218000, MAXRECSIZE = 30 

ROWADDRESS(O) - EU 2 ADDRESS 0), 
NAMEANDADDRESSR0W2 (ROWS - 1, ROWSIZE - 218000, MAXRECSIZE - 30, 

ROWADDRESS(O) - EU 2 ADDRESS 218000), 
HISTORYROWl (ROUS - 1, ROWSIZE - 218000, MAXRECSIZE « 30, 

ROWADDRESS(O) - EU 3 ADDRESS 0), 
mST0RYR0W2 (ROWS - 1, ROWSIZE - 218000, MAXRECSIZE - 30, 
ROUADDR£SS(0) - EU 3 ADDRESS 218000); 
<l> END 
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The first two file specifications cause directory entries to be built 
for the NAMEANDADDRESS and HISTORY files. Each SU contains 218000 seg- 
ments so the files have been set up as two rows each where each row is 
an appropriate SU of IAD. The remaining four file specifications re- 
define these two files so that there is a separate directory entry for 
each row of each file. 

Installation "A" then loads his files from tape via the control state- 
ments: 

?COPY NAMEANDADDRESS ONTO NAMEANDADDRESS, HISTORY ONTO HISTORY 
FROM MASTERTAPE; END 

Ope rat ion 

At this point "A" is on the air. The critical files for "A" are now 
located on IAD, and all programs which process these files function the 
same as when the files were maintained on system disk, no reprogramming 
is required. 

If "A" decides to take advantage of his backup SU's, he may now copy his 
database to tape as 1 single row file by inputting: 

?COPY NAMEANOADDRESSROWl TO BTl , NAMEANDADDRESSR0W2 TO BT2, 
HISTORYROWl TO BT3. HtST0RYR0W2 TO BT4 ; END 

Recovery 

Suppose that some time later SU I of EU 3 were to fail. The system 
would cor.tinue running unhampered except for particular programs which 
were accessing data off this SU. To recover this data "A" would input: 

<I>RUN SYSTEM/ lADHAPPER; EBCDIC 
UPDATE: HISTORY 

(ROWADDRESS(l) = EU 3 ADDRESS 436000) . 
HIST0RYR0W2{R0WA0DRESS(0) = EU 3 ADDRESS i(36000) ; 
<I>END 

fol lowed by 

7C0PY HISTORYR0W2 ONTO HtST0RYR0W2 FROM BT^t; END 

At this point "A" has recovered all of his data on his backup SU and is 
free to run on-1 i ne diagnostics against the fail ing SU or take it off 1 ine 

for maintenance. 

Notice that various other forms of recovery are possible. For instance 
two copies of certain files could be maintained on IAD. Recovery then 
could be effected without reloading files from tape. 
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Example 2. 

If Installation "A" had been satisfied (temporariiy at least) with 
the physical location of his critical files on disk, he could have 
avoided reloading files at conversion time by doing the following: 

1 • Load SYSTEM/ lADMAPPER 



2. Inputting 

<I>RUN SYSTEM/ lADHAPPER; EBCDIC 

SAVE TO IADSPECS:NAMEANDADDRESS, HISTORY- 
<I>END 

SYSTEM/ lADMAPPER would create an output tape file called lADSPECS which 
contained copies of the disk headers for the NAHEANOADDRESS and HISTORY 
files. 

3. Do a COLD START reserving the disk on which these two files 
reside. This can be determined from the output listing pro- 
duced by running lADMAPPER in step 2. COLD START to the new 
MCP which supports IAD. 

^. Input the following control deck: 

<I>RUN SYSTEM/ lADMAPPER; EBCDIC 

RESTORE FROM lADSPECS; 
<I>END 



PRINTED IN US. AMERICA 



B 6700 / B 7700 SYSTEM SOFTWARE HANDBOOK 



UTILITIES 



INTRINSICS FUNCTIONS 



To make effective use of main memory by providing a single copy of the 
object code file for each of a number of commonly used routines. The 
locations of the object code files for these reentrant routines are 
known to the MCP and indirectly to the compilers in which they are used, 
and thus these code files are available to user programs as intrinsic 
functions. 

LIBRARY MAINTENANCE 



To perform (by means of a process of the MCP) library utility operations. 
The library maintenance process may be activated either by the entry 
of control statements at the input keyboard or by the use of control 
cards. 

Refer to CHANGE, COPY, and REMOVE control statements. 

LIST DIRECTORY 

Use: 

To produce a listing of the names of the files that are stored on disk. 

Control Statement Used in Calling SYSTEH/L I 5TD 1 RECTORY: 

<1> RUN SYSTEM/LISTDIRECTORY; END 

Keyboard Messages Used in Calling SYSTEH/LISTD IRECTORY : 

DIR (used in producing a listing of the names of all files on disk) 

PD (used in producing a selective display of names of files on disk; 
refer to Disk Directory Table) 

HAP Option: 

If the program SYSTEM/LISTDIRECTORY is compiled with the MAP option 
set, then, in add i t ion to the list of f i les, the program wi 1 1 also 
provide the disk addresses and sizes of disk areas in use by each file, 
a list of areas (sorted by address) which can be made available by the 
removal of one file, and a mapping of disk checkerboarding. 

SYSTEM/LISTDIRECTORY is released with the MAP option set, but it can be 
recompi led wi th the opt ion reset i f des i red. The program wi 1 1 run more 
rapidly if the MAP option is reset. 
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If SYSTEM/LISTDIRECTORY is run with a taskvalue of 1, the effect is 
as if it had been compiled with MAP reset. 

f or examp 1 e : 

<!>RUN SYSTEM/LISTDIRECTORY; VALUE=I ; END. 

Label -equation of the internal file D to a directory title causes only 
the files in that directory to be listed. 

For example : 

<I>FILE D(TITLE = SYMBOL) 

LOO ANALYZER 

The system input message LOG will invoke LOGANALYZER, with the default 
file SYSTEM/SUMLOG. It accepts the syntax In figure 6-1. There are 
two independent criteria on which log printout is selected. First, a 
particular log file and time interval are chosen. Within that range of 
records, the second criterion is applied: which log entry type to se- 
lect. If no time Interval is given, the default is the entire time 
interval of the specified log. If no log entry type is specified, the 
default is all record types. 

The options BOJ , EOJ , HL and MSG print all records of those types from 
the log. EOT includes both EOT and EOJ records; BOT includes both BOT 
and BOJ records. ABORT is equivalent to EOT. 10 includes open and 
close records. ALL prints the entire log. The options DCP and MCS will 
print all DCP and MCS records, respectively. 

The MIX command will print BOJ, BOT, lOERROR, EOT, EOJ and message 
records, either for all task numbers or for the task or tasks listed. 
Note that the mix number refers to a specific task and not to a job. 
If the mix number refers to a job, only BOJ, EOJ, LOGON, and LOGOFF 
records will be printed. 

The TASK, JOB, and SESSION (which is synonymous with JOB) commands are 
expansions upon the MIX command. The TASK carmand yields all entries 
associated with the indicated task (if one corresponds to the descrip- 
tion). This task may be specified by mix number or task name. JOB and 
SESSION commands yield all entries associated with the indicated job and 
its tasks. This job (session) may be specified by mix number or job name. 
When a task or job name of the form fIlename/= is specified in a TASK, 
JOB, or SESSION command, LOGANALYZER references tasks or jobs with names 
the left-most parts of which are identical to the filename. 

For example : 

LOG JOB "A/B/=" 

will reference all jobs whose names begin with "A/B/". 
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*■ / — ^integer— ► ■" 



3— TO-|-tlme-T -I 
I U.date*l 



■logname- is SYSTEM/SUMLOG 

or SUMLOG/nnnnnn, where n Is a digit. 

"time" is a 4-diglt integer. 

"date" is in the format mm/dd/yy, where 

m, d, and y are diifits. 
"unltno" is an Intener from 1 to 255. 
"lilename" does not contain quoted strings. 



I— SESS 



-BOJ- 
-BOT- 
•■EOT- 



lON-J 



"-»f ilename- 



i:;:^- 



l^THRU-^integer— • 



t:: 



-THRU— integer' 



-MAI NT 1— 

-lOERROR-^ 



■ L--unitno— I 



-CP 

B.PK 

-*MT 

-fcPEMT — 
— NRZMT- 

NRZ7MT-* 
I— -NRZ9MT— 



Figure 6-1. Syntax of LOG System Input Message 
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lOERROR is similar to MAINT, but the latter prints additional informa- 
tion such as memory access errors. These are accumulated internally 
and written out to disk only after a certain number occurs, since tog- 
ging each occurrence would aggravate the memory access problem. 

RAW produces an unanalyzed dump of the log file. 

NOTE 

The OPEN log entry contains a new form of "unit 
type" specification for line printer files as 
fol I0W5: 

(UE)LP = unbuffered EBCDIC LP 

{BE}LP = buffered EBCDIC LP 

(UB)LP = unbuffered 8CL LP 

{BB)LP = buffered BCL LP 

Input Examples : 

LOG: Retrieves all job entries followed by all miscellaneous 
entries. 

LOG BOJ : Retrieves all beginn ing-of-job entries. 

LOG JOB 546: Retrieves log for job number 5^6. 

LOG "SYSTEH/SUHLOG" ALL: Retrieves all entries in the current 
system log. 

LOG "SUMLOG/000005": Retrieves all entries in file SUMLOG/OOOOO5. 

LOG 1100 MIX 123: Retrieves all entries for mix number 123 from 
1100 hours to present. 

LOG 5/11/70; Retrieves all entries for date 5/11/70. 

LOG 1200 5/11/70 TO 1700 5/11/70 MIX 3^5: Retrieves all entries 
for mix nunber 3'»5 from 1200 on 5/11/70 to 1700 on 
5/11/70. 

LOG 10: Retrieves all I/O (I.e., OPEN and CLOSE) entries for all 
jobs in the log. (Same as LOG FILE.) 

LOG MAINT: Retrieves all present maintenance log entries. 

LOG MAINT DK: Retrieves all maintenance log entries for head-per- 
t rack disk un i ts. 

LOG MAINT 991 Retrieves all maintenance log entries for all peri- 
pheral units with a unit number of 99- 
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LOG MAINT 60 MT97: Retrieves all maintenance log entries for all 
devices with a unit number of 60 and for mag- 
netic tape uni t 97- 

LOG HAINT MT97 60: Retrieves all maintenance log entries for 
magnetic tape units 97 and 60. 

LOG DCP: Retrieves Da tacom error records. 

LOG MCS; Retrieves all HCS type entries (e.g., LOG-ON, LOG-OFF, 
etc.) . 

LOG JOB "MYJOB": Retrieves all entries for jobs named MYJOB and 
their tasks. 



For detailed information concerning LOG- 
ANALYZER, refer to WORK FLOW MANAGEMENT 
REFERENCE MANUAL , Form No. 5000706 , dated 
16 April 1973 - 

Log Entries 

The following discussion describes the present implementation of job 
log entries. The general format of each log entry Is described first, 
followeo by a discussion of the various defined types of log entries. 

It is desirable to organize the log in such a way that a dlsl^ error or 
bad information in one record does not hamper retrieval of any other 
records. For this reason, all logical log records are cut into contig- 
uous fixed-size physical records, with the first word in every record 
providing a record group description. MCP procedure WRITELOG performs 
the blocking of any size array row Into log records and writes them into 
the correct jobfile. See figure 6-2. 

All log entries contain, in the first word of every record, a Record 
Group Description (see figures 6-2 and 6-3)- This word contains four 
fields: 

1 . The cardinal i ty of this record wi thin i ts group ("this is 
record m of n") , beginning with t . 

2. The total number of records in the group. 
3- The job number of the associated job. 

^. The task number of the task causing the log entry. 

In the first record of each and every log entry, the next three words 
contain the following information: 
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Array Passed 



Log Records 




Record Group 
Description 



Figure 6-2. Blocking of Log Entry Into Records 
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Word 0: Record Group Description 



47 


39 


31 


15 



[47:8l Cardinality 

[39:8l Number of records this entry 

[31:161 Job number 

[I5:16l Task number 

Word 1: Date, Binary (Julian) 

Word 2: Time, 2.4 fis 

Word 3: Type 



47 


31 


15 



[47:161 Length of entry In words 

[31:161 Major type 

[15:16' Minor type 

Figure 6-3, Format of First Four Log Entry Words 
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1. Word 1 contains the current date in binary Julian format. 

2. Word 2 contains the current time in units of 2.h usee. 

3- Word 3 contains the log entry type. This word Is divided into 
a length field, plus major and minor classifications fields. 
The length field contains the number of words in the log entry. 
The major field gives a rough classification according to ori- 
ginator; the minor field completes the classification of the 
entry. 

When analyzing the log, a log program should reassemble the record be- 
fore using the word numbers- These numbers all refer to the words as 
contained In an array, not as contained in the file. See figure 6-2. 

The physical records of each log entry will always be contiguous in the 
SUMLOG . These entries will be in chronological order. The records of a 
single log entry will not be split across two different logs by an LR, 
but entries relating to a single job may be split. 

Log Entry Types 

There are seven major classes of log entry records {Identified by major 
type numbers), each having subclasses (identified by minor type numbers). 
The log entry classes are as listed in table 6-1. 

NOTE 

For a detailed description of log entry 
formats, refer to WORKFLOW MAMAGEHENT USER'S 
GUIDE , Form No. 500071^ - dated 16 April 1973 - 

MAKEUSER 

Use: 

Creates a file that contains information concerning remote users for the 
Message Control System (mCS) . (For detailed information concerning the 
MAKEUSER program, refer to Section 15 of B 6700 SYSTEM MISCELLANEA . 
Form No. 5000367 . dated 16 April 1973 -) 
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Table 6-1. Log Entry Classes 



MAJOR 
TYPE 


MINOR 
TYPE 


RECORD 
CLASS 


1 




JOB RECORD 




1 
2 

3 
i| 
5 
6 
7 
8 


Beginning-of-Job (BOJ) Record 
End-of-Job (EOJ) Record 
Beginning-of-Task (BOT) Record 
End-of-Task (EOT) Record 
File Open Record 
File Close Record 
Job Rejection Record 
Aborted History Record 


2 




MAINTENANCE RECORD 




1 

2 
3 
li 
5-9 
10 


Mainframe Configuration Record 
Peripiieral Configuration Record 
Maintenance Comment Record 
Memory Access Error Record 
Reserved for later implementation 
I/O Error Record 


3 




STRING RECORD 

To be sped f ied 


h 




HC5 RECORD 




1 
2 
3 
"i 
5 


Session Log-On Record 

Session Log-Off Record 

RJE Control Card Record 

MCS Message Record 

Session Time-Accumulation Record 


5 




OCP MAINTENANCE RECORD 




1 

2 
3 

4 


DCP Initialization Record 
MCS initialization Record 
DCP Fault Error Record 
MCS Result Message Record 


6 




MISCELLANEOUS RECORD 




1 

2 
3 
1) 


Halt/Load Record 
Log Release Record 
SETSTATUS Record 
Security Violation Record 


7 




INSTALLATION RECORD 
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SYSTEM/PATCH Utility Program 

The patch merge program (SYSTEM/PATCH) is an ALGOL utility program 
used to merge one or more patch decks into a single patch deck (on disk) 
which may be used as the input CARD file for an ALGOL, ESPOL, DCALGOL , 
COBOL, or FORTRAN compilation. The present program is specifically 
designed to generate a patch deck to be used when compiling a standard 
Burroughs software item. 

The patch decks to be merged by the program may be EBCDIC- or BCL-coded. 
The merged patch deck may be either BCL- or EBCDIC-coded if the input 
patches are BCL-coded; the merged patch deck must be EBCDIC-coded if 
the input patches are EBCDIC-coded. 

The patch program merges all input patch records by sequence number. 
Only numeric or blank sequence numbers are accepted. The program allows 
resequencing and patching into resequenced areas of a patch. 

FiUs Ut«d by SYSTEM/PATCH 

The following files are visible to the user: 

a. PRNT - The output printer file. 

b. CARD - The input file containing patches to be merged 

by the program. 

c. PATCH - The output disk file containing the merged 

patches. 

d. TAPE - The old symbolic disk file against which the 

input patches are to be compared. 

NOTE 

The TAPE file is necessary for resequencing. If it 
is needed and has not been label -equated via a WFL 
FILE card, then the program will ask for its TITLE 
via an ACCEPT message. The TITLE may not contain 
quoted strings In this case. 

The mode of the CARD file determines the output mode of the PATCH file. 
The old symbolic and any patches to be accessed from disk are translated 
if necessary. If the CARD file is EBCDIC-coded, then BCL-coded cards 
not containing multiply signs can be input and will be translated. (See 
discussion of "Control Cards" In the following paragraphs.) 

Card Input : 

a. Dol iar Cards 

The following compiler options are recognized by SYSTEM/PATCH: 
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SEQ 
VOID 
VOIDT 
MERGE 
GO TO 
BUMP TO 

All other options will be passed to the compiler via the 
PATCH file but ignored by SYSTEM/PATCH. Such compiler options 
as AREACLASS, INSTALLATION, LEVEL, LIMIT, and VERSION are 
checked for format since their associated parameters could 
cause invalid actions if improperly specified. 

A dollar card is defined to be a card with a "$" in colutmi 1 
(or cotuTin 7 for COBOL). A "$" in any other card column is 
not recognized- 
Patch Del imiter Cards 

Each input patch must be immediately preceded by a card with 
*'$#" in columns 1 and 2 (columns 7 and 8 for COBOL - i.e., 
when the "COBOL" patch control option is set). The rernainder 
of the card may be used for coimients. (See discussion of "LABEL" 
and "MARK" patch control options in later paragraphs.) 

Control Cards 

Control cards to SYSTEM/PATCH are signified by a "$." in 
columns 1 and 2 (columns 7 and 8 for COBOL - i.e., when the 
"COBOL" patch control option is set). Such control cards may 
only appear before all input patches or between input patches, 
except for S.DISK. 

The following patch control options may be set or reset on 
these control cards: 

1. Output Control Options 

Output on PRNT can be generated by the following options 
if there were no fatal errors during the patch merging 
process. 

(a) LISTP - List the input patches by patch deck. 

(The default state of LISTP is SET.) 

(b) LIST - List the merged patch. 

(c) COMPARE - Output a comparison of the merged 

patch with the old symbolic, giving 
at) patch cards and pertinent cards 
from the old symbolic. 
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(d) GUARD - Output a list of all sequence numbers 

of patches merged into a guarded area 
of the old symbolic. (See following 
NOTE.) 

(e) SINGLE - Single-space the listings. 

NOTE 

The GUARD option allows specific portions of the 
old symbolic to be "guarded" in such a manner as 
to produce a list of patches merged into those 
areas. Guarded symbolic code should be speci- 
fied as fol lows; 



S- GUARD m 



commen t 



On this card "m - n" indicates the range of se- 
quence numbers of cards to be guarded (n must be 
greater than m) , and "comment" may be any charac- 
ter string. When a patch card is merged into the 
old symbolic between sequence numbers m and n, 
then the sequence number of the patch card, the 
number of the patch, and the comment from the 
$. GUARD card is written to the PRNT file. 

Up to 100 areas may be guarded in this manner. 

The GUARD option must be the last control option 
named on a "$." card. 

Other Options 

(a) COMPILE - Zip the compilation of the old symbolic 

with the merged patches if no fatal errors were dis- 
covered. Control cards for the compilation are given 
on "$"" cards appearing after COMPILE is set (but not 
within an input patch). The CARD and TAPE files are 
label-equated automatically by SYSTEM/PATCH. 



For . 



mple 



S.SET COMPILE 

$^COHPILE A/B WITH ALGOL LIBRARY 

SMLGOL FILE NEWTAPE(TITLE = S/A/B) 

These $'■= cards may not contain comtnents. The "$a" 
must appear in columns I and 2; thus, "COBOL" may not 
be set when such cards appear among the input patches. 



(b) LABEL - {for 
symbol i cs) . 
each card. 



with ALGOL, ESPOL, and DCALGOL 
label information right justified > 
enables the user to identify the 
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source of cards in the symbolic at any future t ime - 
A typical use would be to place the implementor ' s 
initials in a fixed field on the patch delimiter cards 
and have this placed on each card in the patch. 

The information is taken from the patch delimiter 
(S#) cards. The LABEL control card gives the starting 
column of this Information. The label information is 
terminated by the first blanl<, e.g., S-LABEL 3 will 
cause SYSTEM/PATCH to take the string of non-blank 
characters starting in column 3 of the patch delimiter, 
to preface it with a "^", and try to place it right 
justified on each card in the patch. If any card has 
non-blank characters in the pertinent right-most col- 
umns, the label will be omitted and a non-fatal warning 
issued. Users are cautioned against continuing strings 
across card boundaries when using this option. 

(c) DISK - Place the information on the given disk file 
into the input at this point. This information should 
not contain patch delimiter cards or dollar cards with 
"VOID" or "SEQ" options (i.e., it should look like the 
output (PATCH file) of SYSTEM/PATCH). 

Exanple: $.DISK X/Y/Z 

(d) BCL - Treat the following patches as BCL input. If 
the mode of the input file is EBCDIC, a soft translate 
is performed. This option is not needed if the input 
mode is BCL. 

(e) COBOL - Treat the input in COBOL format: Sequence 
numbers in columns through 6, $ signs in column 7- 
After this option Is set, all control cards and patch 
delimiters must start in column 7- 

(f) DUMP - If a fatal error occurs in patch N, merge the 
first N-1 patches and lock them on a disk file. If 
the patch file would have had the title "X/Y/Z", then 
this file will have the title "DUMP/X/Y/Z". The DISK 
control card can be used to restart the merge without 
rereading the first N-1 patches. 

(g) MARK - (for use with ALGOL, ESPOL, and DCALGOL sym- 
bolics). Place Mark level information in columns 81 
through 88 of the merged patch. This information is 
taken from each patch delimiter (S#) card for which 
MARK is set immediately after the first non-blank 
("noise") character string on the card. 

For example : 

S.MARK LABEL 3 
S#XYZ 2.03.045 
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In this example, all cards from this patch wilt con- 
tain "2.03-O't5" in columns 81-88 in the merged patch. 
These cards will also be labeled "%XYZ" (as discussed 
under "LABEL"). 

The MARK option may also be used in conjunction with 
the ALGOL, ESPOL, and DCALGOL compiler option "VERSION" 
In the following manner. 

The format of the VERSION compiler $ card Is: 

SVERSION VV.CCC. 

where VV represents the Version, 
the first V represents the Mark number, 
the second V represents the Level number, 
and CCC represents the Cycle. 

When compiling from SYSTEM/PATCH with MARK set, then 

If on the $# card the first string after the noise 
string is a string of three of fewer digits and VERSION 
is set, then 

a. The ALGOL compiler will replace the three-digit 
patch number with the string of 10 characters as 
follows: version (2 characters), period cycle 
(3 characters), period patch (3 characters)- i e 
VV.CCC.PPP. 

b. The ESPOL compiler will replace the three-digit 
patch number with the string of eight characters 
as follows: version (2 characters), cycle (3 
characters), patch (3 characters). When printed 
on a listing, the ESPOL compiler will insert 
periods between the Version and Cycle, Cycle and 
Patch. 

(h) EXECUTE - Zip a specified program execution If no 

fatal errors were discovered. Control cards for the 
execution are specified on "$a" cards as for COMPILE. 
The terminal "END JOB" control statement Is supplied 
by SYSTEM/PATCH. 

EXECUTE and COMPILE may not^ both be set when SYSTEM/ 
PATCH finishes processing the last patch deck. A com- 
pilation of the symbolic or an execution may be zipped, 
but not both. 
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$. EXECUTE 

$<^J08 HVJOB;BEGIN 

$*RUN E/H; VALUE - 1 

$*FILE CARD(FILETYPE-7,KIND-DISK,TITLE=MV/PATCH) 

All of the above options may be SET, RESET, and POPped similarly to the 
compiler options. If no action is specified, SET is assumed, but, un- 
like the compilers, no action is taken to options not specifically men- 
tioned. 

Sample input Deck: 

<1> JOB PATCHIT; BEGIN 

<l> RUN SYSTEM/PATCH 

<1> FILE TAPE (TITLE-SYHBOL/FILE) 

<l> FILE PATCH (TITLE-MY/PATCH); EBCDIC CARD 

S.LI ST SINGLE COMPARE 

S.NARK GUARD 300-1000 GUARD AREA ONE 

S. GUARD 2050-31000 GUARD AREA TWO 

S.SET COMPILE 

S*C0HP1LE SYSTEM/FILE WITH ALGOL LIBRARY 

S#ABC 2.03.001 FIRST ABC PATCH 

SMERGE CHECK LIMIT i SINGLE LIST 

SSET STACK 



$#ABC 2.03.002 SECOND ABC PATCH 

S.DISK S/PATCHFILE 

$#ABC 2.03.003 THIRD ABC PATCH 



To compile with the merged patches, the compiler file CARD must be label 
equated to the patch file. 

Example : <l> COMPILER FILE CARD (TITLE-Hy/PATCH,KIND«DI SK, 
EXTMODE-BCL) 

Explicitly setting extmode to BCL or EBCDIC is necessary, since the 
external mode of a disk file is not currently set at file open time. 

Briaf Description o( Alsorilhm 

The program uses two passes to produce the merged patch. The first pass 
reads the cards from CARD and writes them to a scratch disk file. If 
no errors have been detected, the patches are merged onto the disk file 
"PATCH". This file is then locked, the EXCEPTIONEVENT of the parent 
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(if any) is caused, and the message "OK TO COMPILE" is displayed on 
the SPG (unless the COMPILE option is set--in which case the compile 
is fired off). Any post-merge output (list or compare) is then generated 
in parallel with the compile. 

The following actions can occur during the first pass: 

a. ERROR CHECKING - Sequence errors and failure to POP recognized 
(SEQ, VOIDT, and VOID) options which have been set will cause 
fatal errors. 

b. RESEQUENCING - All occurrences of the "SEQ" compiler option are 
eliminated by merging the input cards with the appropriate 
sections of the symbolic file and preceding patches. They are 
then written to the scratch file preceded by a "SSET VOIDT" 
and followed by a "$POP VOIDT". 

Note 1: This procedure allows subsequent patches to 
patch into the resequenced area. 

Note 2: Binary searching is done to locate the pertinent 
areas, hence sequence errors in the old symbolic 
could give unpredictable results. 

Note 3; Any resequencing which woutd cause a sequence 
error in the new symbolic (e.g., the increment 
was too large) will cause a fatal error. 

c. VOIDING - All occurrences of the VOID compiler option are re- 
placed by VOIDT's with intervening cards deleted. This prevents 
a VOID from eliminating cards in a subsequent patch. 

For IPC, if no errors are encountered, then a TASKVALUE of 1 is returned; 
otherwise, a negative TASKVALUE with a magnitude equal to Che number of 
errors is returned. 

PRINTCOPY 

The program SYSTEM/PRI NTCOPY is used to print the supervisory console 
traffic from the disk file generated by SYSTEM/HAROCOPY. (Refer to the 
discussion of the HARDCOPY program in this section.) 

PRINTER BACKUP 



SYSTEM/BACKUP is used to print or punch backup files. SYSTEM/BACKUP 
is run by entering a ?PB command at the SPO or by using a PB control 
statement. The syntax for the PB control statement is as follows: 
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<PB task attribLite> : := PB <lnput desi9nator> <output ynit> 
<option part> 

<input designator> ::= MT<un i t rumber> I D<mix number> 1 
D<PB file ID> 

<unit number> : := <integer> 

<mix number> ::= <integer> 

<PB file ID> : := <fTiix number> <slash> <fi]e title> 

<slash> : := / 

<file tit]e> : := {title part of BD entry} 

<output unit> :;= <empty> | LP<unit number> 

<option part> ::= <empty> j <as50ciat i ve opt ion> ] <general option> 
<general option> <associative option> 

<associative option> ; ;= <key declaration> <area specif ier> | 
RECORD <start reo [ 
RECORD <start reo <stop reo 

<l<ey declaration> : := KEY <key specif ier> 

<key specif ier> : := ALGOL | COBOL | FORTRAN | REPORT [ 
<column> <key length> 

<column> : := <integer> 

<key Iength> ::= <integer> 

<area specif ier> : := RANGE <start> <stop> | EQUAL <sequence> | 

<start> ::= <integer> | "<EBCDIC string>" 

<stop> : := <integer> | "<EBCDIC string>" 

<sequence> : := <;nteger> | "<EBCDIC string>" 



<start reo 



<stop rec> : := 



nteger> 



<genera] option> : := <general option part> | 

<general option> <general option part> 

<general option part> : := SAVE | COP I ES=< in teger> | 
SINGLE I DOUBLE 
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Backup Fi les : 

The MCP will build a backup file when one Is specified by MCP system 
options, by program file attributes, or by the system operator (by use 
of the OU keyboard message). 

A backup file on tape Is named BACKUP/<fi]e name> . Backup tapes may be 
written as multireel files and as multifile reels. Backup files on disk 
are named BD/<mix index>/<file name> . The <file name> Is the name used 
by the program which created the file. 

System BACKUP files are variable-length record, fixed-length block files. 
Each block is 300 words long. Within a block, each logical record is 
composed of one control word followed by or more words of data. A 
terminal control word of all zeros indicates that there are no more 
records in the present block. 

Each control word is divided into specific fields. These fields are 
as follows: 

Field Contents 



^7:28 Identical with the corresponding 

portion of an I/O CONTROL WORD. 

19^3 Character count residue for the 

data record (if the record to be 
printed consists of complete words, 
the value of this field will be zero). 

16:17 Word count for the following data 

in the record in ful I words , not 
counting the control word. 
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Records in a BACKUP file are not split across blocks. Thus, if the 
last record in a given blocl^ ended in word 297 and the next record 
were 10 words long, then word 298 would be a control word containing 
all zeros. This control word Indicates an end of the present block, 
and the next record will begin at the start of the next block. The 
figure below illustrates a typical block of BACKUP records. 



20 20 WORDS OF DATA - 



17-17 WORDS 



CONTROL WORD 



CONTROL WORD 



OF DATA- 3 6 6-1/2 WORDS OF DATA- 



CONTROL WORD 



CONTROL WORD 



m 



-N WORDS OF DATA 



• IGNORED DATA- 



CONTROL WORD 



END OF 
BLOCK 



Format of System Backup Files 
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RLTABLEGEN 

The SYSTEM/RLTABLEGEN program constructs value arrays which it binds 
to the MCP, providing for system acceptance of nonstandard tape labels. 
The following paragraphs describe the ability of the 11.2 MCP to accept 
instatiation-def ined tape labels. A description of the operation of the 
RL TABLE GEN program follows this discussion. 

Installation-Defined Tape Labels 

The MCP's label recognition routine (READALABEL) is able to recognize a 
large class of installation-defined labels In addition to standard tape 
labels. 

To invoke this abi 1 i ty, it is necessary to wri te a description of the 
desired nonstandard labels, pass this description through a table build- 
ing program, {i.e., SYSTEM/RLTABLEGEN) bind the resulting VALUE ARRAY to 
the MCP, (accomplished by the program), and then CM to the resulting MCP. 

Tapes with installation-defined labels may then be used in the usual 
manner, with the following restrictions: 

a. The label records must be a contiguous group of BCL or EBCDIC 
records at the beginning of the tape, separated from the data 
by one tapemark. 

b. The label type must be determinable by examination of the first 
record only. 

c. Label record size must be less than 230 characters. 

d. The MCP will not recognize any user labels (e.g., UTL , UHL , 
etc.) on these label types. 

e. No "up tape" labels will be recognized. That is, once the 
file is opened and the tape is positioned to the beginning of 
the data, the tape wilt become treated as an unlabel led tape . 

f. Because installation labels are checked for before standard 
labels, the recognition sequence must be complete enough not 
to interfere with standard label recognitions. 

U$« of SYSTEM/RLTABLEGEN 

The following is a description of the input to the program SYSTEM/ 
RLTABLEGEN, which is used to create the value array installation labels 
which are used by the MCP to identify nonstandard labels. 

The input to SYSTEM/RLTABLEGEN consists of any number of label descrip- 
tions. The elements of Such label descriptions are discussed here. 
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Label Description Format 

A label description must consist of two divisions: the ID (or IDENTI- 
FICATION) division and the FIELD (or FIELDS) division. A label descrip- 
tion is constructed of the items discussed here in order. 

The ID division is demarcated by the ID statement, the syntax for which 
is as fol lows: 




-ALL 

- PE ■ 

■ 7 

- 9 ' 

- SEVEN - 

- NINE — 

- TAPE 7— 

- TAPE 9- 

- PETAPE- 



Examples : 

IDMODE = EBCDIC FOR (PE, NINE) TRACK TAPES. 

IDENTIFICATION FOR BRAND-X UBELS (7) MODE = BCL. 

NOTE 

To use the "railroad" notation for syntax, 
simply start on the left edge and proceed to 
the right. A choice may be made between ID 
or IDENTIFICATION, followed by any mixture of 
MODE clauses, comments, and a list of the tape 
types on which these labels may be found. The 
list of tapes is any combination of the identi- 
fiers listed, separated by commas and enclosed 
in parentheses. The ID statement must end with 
a period. 

The recognition sequence follows^the ID statement. The syntax of a 
recognition statement is as follows: 
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-8' string'" 

— 6' string'- 

— ' s t r i ng ' - 

— " string'*- 
-6" string"' 

-8" string"- 



a. column is an integer. 

b. string is any string excluding the quote character within 
the quotes, and excluding the apostrophe in the upper three 
s t r i ng s . 

As many recognition statements as needed may appear. 

The FIELD division statement, which denotes the beginning of the descrio- 
tion of the label, is described: 

FIELD STATEMENT: 



-<z 



FIELD 
FIELDS 

Following the FIELD statement is the description of the various fields 
found in labels. There are basically three types: 

STRINGS, NUMBERS, and BIT FIELDS. 

Each field is used to store file attribute information. 

These label fields are described via the RECORD and field-location state- 
ments. The syntax of these statements is as follows; 
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-VERS I OK 

-CREATION DATE -^ 
-MAXRECSIZE — 

-BLOCKS I ZE 

-MINRECSIZE — 



-PARITY- 



-DENSITY- 
-RCDFRHT- 
- UNITS 



-@ — col umn-FOR — length — r equal fficatlon 



d 
Requal 



recordno. is an unsigned Integer, 
column is an unsigned integer, 
length is an unsigned integer, 
requal i f icatidn is expanded below, 
f ication: 



-STRINi;- 
-NUMBER- 
- BINARY - 



BCL 
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In the preceding syntax "column" and length" are Integers representing 
the one-relative location and length of the field being described. 

There are two basic statements; the RECORD number statement and the 
field-location statement. The RECORD statement is used to group field- 
location statements by the records in which they appear. Counting for 
both records and columns within records starts at one. Each record 
statement must reference a higher record than the previous one. 

Field-location statements consist of a reserved word describing the 
file attribute with which the value In the field is associated followed 
by starting column location within the current record and length of the 

field. 

Each attribute value is of an assumed type. The character type (BCL 
or EBCDIC) is assumed to be that expressed by the MODE clause in the ID 
statement. Attributes of STRING type may be requalified to override the 
expressed MODE, but may not be changed to type BINARY or NUMBER. 

NUMBER or BINARY attributes may be requalified to any mode or type 
except STRING. 

• MFiO, FID 

Type STRING. Max length 17 characters. Either Is optional, 
if both are missing or if both reference fields that turn out 
to be all blank, the tape will be labelled "UNTITLED.". All 
leading and trailing blanl<s are deleted from the two fields. 

• RCDFRMT 

Type BINARY. The low order 8 bits of this field are assumed 
to be a BCL or EBCDIC letter. The following is a conversion 
table from letter to file type: 

LETTER FILE TYPE 



V 2 

1 k 

L 5 

Z 6 

anythi ng el se 3 



Type BINARY. This field is automatically set to the parity 
of the label records, but if specified, must be in accordance 
with the way in which this label attribute works on B 6700 
standard labels. {The low order bits = 1 imply standard parity). 
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• DENSITY 

Type BINARY. This field is automat ical iy set based on the 
density of the iabel records. If it Is specified, it must 
reflect the density in its low order two bits. 

• UN I TS 

Type BINARY. 

• REEL, CYCLE, VERSION, CREATIONDATE , MAXRECSI2E, BLOCKSIZE, 
MINRECSIZE 

These attributes are all assumed to be integers; i.e., digit 
strings of no more than II digits. They all correspond to the 
file attributes of the same name. They are of significance only 
if f i le type 7 i s set. 

Program Specifications 

Source input records are accepted by the program via the reader file with 
the internal name CARD. The program output file consists of the printer 
I isting named LINE. 

The line printer listing contains a pseudo- reproduction of the input 
statements which the program generates from the table it produces from 
the input statements. Successful operation has occurred when the essen- 
tial information in the input records is contained in the output listing. 
The end of this listing contains the value array generated by the pro- 
gram. 

Binding of the generated value array to the MCP is automatically accom- 
plished by the RLTABLEGEN program by zipping the program binder. This 
program requires that the present MCP have the TITLE of SYSTEM/MCP, and 
the code file generated by the binder has the TITLE SYSTEM/NEWMCP. 

Example . 

Problem: 

Recognize BCL labels on 7-track and 9-tracl<. drives that can be 
identified by ANSI VOL header. The only difference between this 
and B 6700 tape labels is that the SYSTEM-ID field is blank. 

Sol utlon; 

The following deck will produce an MCP which will accept these 
labels. 
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<I>RUN SY5TEM/RLTABLEGEN; EBCDIC CARD 
IDENTIFICATION FOR LOCAL LABEL SEQUENCE MODE-BCL (SEVEN, 
e I - "VOL I". 



NINE). 



e 80 - '0' . 








g t 1 not = " ", 








e 29 = " ". 








FIELDS. 








RECORD * 1. 








MFID 8 12 


for 


• 17. 




RECORD * 2. 








FID 




e 5 FOR 17 




REEL 




e 32 FOR ll 




CYCLE 




e 36 FOR k 




VERSION 




e ho FOR 2 




CREATION DATA 


e ll3 FOR 5 




RECORD 1 3. 








RCDFRHT 




e 5 FOR 1 




BLOCKSIZE 




e 6 FOR 5 


(NUMBER EBCDIC) 


MAXRECSIZE 




en FOR 5 




DENSITY 




e 16 FOR 1 


(BINARY EBCDIC) 


PARITY 




e 18 FOR 1 




:|>END 
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DM Utilities 
Name of Sou rce File 
SYMBOL/ OHCLEAR 
SYMBOL/ DMPRINTIT 
SYMBOL/DDLDECOMPILER 
SYHBOL/DMUPDATE 
SYHBOL/OMRECOVER 



Name of Object Fi le 
SYSTEH/DMCLEAR 
SYSTEM/ DMPRINTIT 
SYSTEM/ DOLDECOHP I LER 
SYSTEM/ DMUP DATE 
SYSTEM/DMRECOVER 



SYMBOL/GETDHRESTARTF I LE SYSTEM/GETOMRESTARTFI LE 

SYMBOL/DMROWRECOVERY SYSTEM/DMROWRECOVERY 



Ut i 1 i ty 

DM clear 

DM dump program 

DDL formatter 

DM converter 

DM recover 

DM restarter 

DM reconstruction/ 
restoration 

SYSTEM /DMCLEAR 

DHCLEAR sets the database user count to zero. The database monitor 
would not go to EOJ unless this count were zero. If either SDL/STRUCTURE 
or DDL goes to an abnormal EOJ, either run DMCLEAR or halt/load. If 
DMCLEAR is to be run, the affected database directory must first be re- 
moved from disk (e.g., <1> REMOVE DM / <data-base-name>) . 

Then run SYSTEM/DMCLEAR. With no taskvalue, the resulting SPO message 
ACCEPT:<DATA-BASE-NAME> should be answered with <mix-number> AX <data- 
base-name>. With a taskvalue of I, all data base user counts are 
cleared. 

SYSTEM /DMPRINTIT 

DMPRINTIT is a utility dump program which formats and prints DM files, 
allowing the scanning of the contents of the data files and indices. 
The input file CARD is free form with spaces as delimiters and provides 
the following syntactic possibilities: 

<DMPRINTIT data-card> : := <iJata-base-card> | <mode-card> 

<data-base-card> : := <file-name> <limits 1> <limits 2> | 

<all-card> j <errors-f i le-card> | <aud i tarchi ve- 
card> 

<all-card> : := <data-base-name> <slash> ALL 

<errors-f i le-card> : := <data-base-name> <slash> ERRORS 

<audi tarchi ve-card> : := <data-base-name> <sla5h> AUDITARCHIVE 
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<ftle-name> : := <data-base-name> <slash> <structure-name> 
<optional period> 

<5tructure-name> ::=<unquoted form> | <quoted fornix 

<unquoted forni> ::= {SOL-assigned-structbre-number} | SDL 

<quoted form> : := "<unquoted forrrc <copy-number>" 

<copy-number> : ;= #1 j #2 

<nmits 1> : := <empty> | <integer> ] FROM < integer> 

<limits 2> :;=<emptv> | < integer> | TO<integer> 

<mode-card> : := FORMAT I NO FORMAT I ALPHA ] NO ALPHA I 
ALPHAl I NO ALPHAI | HEX | NO HEX I 
USERPACK <packname> j NO USERPACK 

<stasht. :;= {the character "/"} 

<optional period> : := <empty> 1. 

Examples : 

a. TEST/0027 13 (prints from 13 on) 

b. TEST/ALL 

c. TEST/0008. FROM 1 6 TO 32 

d. TEST/"SDL#2" 

Mode cards provide the following options; 



I - FORMAT 

2. NO FORMAT 

3. ALPHA 

^. NO ALPHA 

5. ALPHAl 



formats the data before printing (default); 

prints the data unformatted in hexadecimal characters; 



causes the alphanumeric equivalent of the data to be 
printed on the right side of the page; 



resets the above option (default); 

causes the alphanumer i cs to be printed below each hex 



6. NO ALPHAl 
7- NO HEX 



resets the above option (default); 

eliminates the hex line and prints only the alpha- 
n ume r i c s ; 

resets the above option (default); 
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9. USERPACK <packname> allows access to files stored on named pack 

where the packname is not equal to the data-base name 
(e.g. , audi t files) ; 

10. NO USERPACK resets the above option (defaul t: packname=data-base 

name} . 

The capacity to produce a hex dump of any file on disk or diskpack (with 
at least a two-level title) is available through DMPRINTIT. This is 
particularly useful in printing the contents of the audit files. 

SYSTEM/DDLDECOMPILER 

DDLDECOMPILER formats and prints (and optionally, punches) the DDL 
specification of any or all sets of a data-base, given the presence of 
the DDL tables. The input syntax is as follows: 

<data-cards> : := <data-base-card> | <$-option-card> 

<data-base-card> : := DATA-BASE = <data-base-name> <set option> 

<set-option> ::= <set> = <5et-l !st> | <empty> 

<set> : := SET | SETS 

<set-list> : := ALL ] <set-name-l i st> 

<set-name-l ist> : := <set-name> | <set-name-l i st> , <set-name> 

<$-option card> : := $ <option-I i st> 

<option-l i st> : := <opt ion-word> | <option-l i st> <bl ank> <opt ion-word> 
I <empty> 

<option-word> : := <act ion-control -word> 1 <option-parameter> 

<action-control-word> : := SET | RESET | POP 

<option-parameter5> : := HEADER ] HEADERS | PUNCH j SINGLE 
j SEQ <seq-option> | PAGE 

<seq-option> ; := <integer> | <integer> + <integer> 

Examples : 

a. DATA-BASE = TEST SETS = ALL 

b. DATA-BASE = TEST SET = SI, S2 , $3 

c. SSET PAGE SINGLE PUNCH SEQ 500 + 10 
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A more complete semantic description is contained in Section 6 of the 
B 670Q/B 7700 DATA MANAGEMENT MANUAL . Form No. 5000235, dated 11 January 

SYSTEM/DMUPDATE 

OMUPDATE is a one-time-only program that converts existing 11.3 databases 
to II .A databases. This saves the user from regeneration and recompila- 
tion tasks. 

COMPILE INFORMATION; The file tape should be label -equated to "SYMBOL/ 
DMUPDATE" and a $ MERGE card should be included in the deck. 

RUN INFORMATION: The object job will look for a card file named CARD 
which is free-form as follows: 

DATA-BASE = <data-base-name> ; 

The steps for running are; 

1. Load the data-base to be updated; 

2. Run SYSTEM/DMUPDATE; 

3- If no errors are noted, the updated database is usable or 
the user may dump it to tape for later use (not forgetting 
to dump the errors file and the altered "overflow" file). 

SYSTEM /DMRECOVIR 

Recovery of a data-base is accomplished by running SVSTEM/DMRECOVER. 
This procedure Is invoked automatically by the data-base monitor when 
necessary. It may also be run by the user. Its parameter is a string 
consisting of the name of the SDL file {or the first copy, if duplicated) 
followed by a period. DMRECOVER recovers the data-base, writes all 
necessary restart files to disk, and indicates its successful completion 
by creating an empty file named DM ] <data-base-name> | RECOVERED. It 
also keeps a log of any I/O errors it encounters in a duplicated file 
named DM | <data-base-name> j "REC0VERRS#1 " and DM | <data-ba5e-name> j 
"REC0VERRS#2". I/O errors may result in an unsuccessful recovery. 

The recovery errors file has 3 word records with the following format: 

Structure number of file in error 

Record in error 

Type of file in error (O-data file or index 

table; I -SDL file; 2-audit trail; 3-unused; 

A-recovery errors file itself) 

Read or write error {O-read; 1-write) 

Copy # in error (O-first; 1-second) 

Blockfactor of file in error 

I/O result descriptor 
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SYSTEM /GETDMRESTARTFIIE 

All necessary restart files are produced automatically by DMRECOVER 
when it is run. However, if a DM job is DS-ed but the monitor goes to 
normal EO J , recovery of the data-base is not appropriate. If the job is 
resubmitted using the delayed restart conventions, the user obtains his 
restart file by running SYSTEH/GETDMRESTARTFI LE. The name of the re- 
start file is: 

DMRESTART | <data-base-name> | <interna] -f i le-name> ] 
<1 I decimal dig! ts> 

where the 11 digit field contains 3 subfields: 

<i4 DIGIT ID FIELD> <k DIGIT JOB #> <3 DIGIT LOG. TASK #> . 

The input file CARD is a list of keyvrord and value pairs (<KEYWORD>= 
<VALUE>) delimited by blanks. Keywords may be shortened and Inexact 
but value must be exact (leading zeros, if applicable, must be punched). 
The parameters may appear in any order. 



PARAMETER NAHI 


E_ 


VALUE 




REQUIRED 


DATABASE NAME 




=<database name> 


YES 


INTERNAL FILE 


NAME 


=<intname of 


restartf t]e> 


YES 


MIX NUMBER 




'<l^ DIGITS> 




YES 


JOB NUMBER 




-<k DIGITS> 




YES 


DATE 




- MM/DD/YY 




ft 


JULIAN DATE 




- YYDDD 




A 


TIME 




= HH:MM:SS 




ft 


AUDIT SERIAL 


NUMBER 


= k DIGITS 




ft 


ID 




. 14 DIGITS 




NO 



Either the audit serial number is specified or the date 
and time are, but not both. 



Examples: 



DATA BASE NAME = MVDB MIX-NUMBER - 0032 
JOB-NUMBER - 0031 
TIME - 00:01:00 DATE - 01/02/73 
INTERNAL FILE NAME = MYRESTARTFI LE 
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2. DATA - TESTDB AUDIT - 0003 JOB " US') 
MIX - 1236 ID = 7777 INTNAME » RSF 



Most of this 

1 isting. The 

from the program listing 



nput may be obtained from the run-time system-produced 
internal file name and the data-base name are obtainable 



SYSTEM/DMROWRECOVERY 

The user interface to reconstruction and restoration is through the 
program SYSTEM/OMROURECOVERY. The basic intent is that the user may 
instruct the monitor to rebuild a data-base structure, but that the 
monitor via the errors file determines which rows shall be restored and 
which need to be reconstructed to completely rebuild all bad rows for 
that structure. Three basic connands are: 

1. REMOVE which gives the user the ability to remove from the 
errors file the indication that a row or rows of a DM file 
had incurred a read error; 

2. INSERT which enables the user to set read-error bits in the 
errors file for any row or rows; 

3. REBUILD which signals the monitor to rebuild all bad rows for 
a particular database and structure. 

Example : 

DATA-BASE - TOO'l? 
SDL 

REMOVE FROM ERROR FILE 

COPY ONE ROUS 2, 5, 7 THRU 11 
COPY TWO ALL ROUS 
AND REBUILD 

BACKUP FILE FOR COPY ONE 15 

(DHS/T001l7/"SDLI1") , 
FOR COPY TUO IS 

(0MS/TO01l7/"SDL#2") 

STRUCTURE 2 

INSERT INTO ERROR FILE 

COPY ONE ROU 13 AND COPY TUO ROUS 9-18 
REBUILD ALL ROUS 
BACKUP FILE 

FOR COPY ONE IS (DHS/TOO't7/"0002#l ") 

IAD CORRESPONDENCE IS 1=5, 2»6, 6=0 
FOR COPY TUO IS (DMS/T00'(7/"0002#2") 

IAD CORRESPONDENCE IS 1-1, 3=3, "1=5 
AUDIT SERIAL NUMBER = 2; 

A more complete description of the syntactic possibilities of DMROU- 
RECOVERY Is offered In the 11.'+ System Notes, pages 105 through 113. 
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DATACOH Utilities 

SYSTEM/DCSTATUS 

Use: 



The SYSTEM/DCSTATUS program allows one to perform an analysis of the 
current run-time state of the B 6700 DATACOH subsystem. The program 
makes use of the DCSYSTEMTABLES intrinsic to gain access to tables main- 
tained by the MCP (and DCP) , and to perform a run-time snapshot analysis 
of them. 

S«Uction of Output Options 

The program must be supplied with an option list which specifies those 
elements of the OATACOM subsystem which are to be analyzed. The options 
are specified on a hierarchial basis, i.e., 

a. Analysis for a station only. 

b. Analysis for all stations on a line. 

c. Analysis for all lines on a cluster. 

d. Analysis for all clusters on a DCP. 

e. Analysis for all DCP's. 

The hierarchial item is selected by using the i<.ey words: ALL, DCP, 
CLUSTER, LINE, or STATION; each higher order item is inclusive of all 
lower order items. Thus, if a cluster is specified, then the analysis 
is performed for all stations on all lines on that cluster. 

Analysis output from the program will normally be sent to a site line 
printer. However, the program will detect if the printer file is label- 
equated to a remote file. For this case, the output format is modified 
so that the output will fit a 72-character line width. 

Syntax of Options 

<options> : := <option list> 

<option I ist> : := <subsystem speci f icat ion> | 

<subsystem specif i cation>; <option I i st> 

<subsystem speci f icat ion> ::= ALL | <DCP designate> | TABLES ] 
<cluster designate> I <1 ine dest9nate> | 
<station designate> | <terminal designate> 

<DCP designate> : := DCP <DCP number> 

<DCP number> : := <unsigned integer> 

<cluster designato : := CLUSTER <DCP number>, <clu5ter number> 
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<cluster number> : := <unsigned integer> 

<line designate> : := LINE <DCP number>, <I ine number> | 

LINE <DCP number>, <cluster number>, <)ine number> 

<I ine number> : := <unsigned integer> 

<station designato : := STATION <Isn> <NDL option> 

<lsn> ; := <empty> | <logical station number> 

<NDL option> : := <empty> | NDL 

<terminal designato : := TERMINAL <remote type index> 

<remote type rndex> : := <erapty> [ <unsigned integer> 

Semantics : 

The TABLES option produces a raw hexadecimal dump of the DATACOH con- 
troller and DCP line and station tables. Tag bits are omitted from the 
dunp. 

The ALL option produces a ccmplete analysis of the DATACOM network. The 
tables are dumped and an analysis of the tine and station tables together 
with an analysis of each remote type is performed. All other options are 
subsets of this option. 

The <DCP designate> option produces a full analysis of the designated 
DCP's lines and stations. 

The <cluster designate> option produces a full analysis of the designated 
cluster's lines and stations. 

The <line de5ignate> option produces a full analysis of the designated 
) ine and i ts stations . 

The <station designate> option produces the following output. If <NDL 
option> is empty, then an analysis of the tables maintained by the 
DATACOM controller is produced. If <lsn> is empty, then the analysis is 
produced for all stations. This will include those stations which are 
not currently assigned to a line, and will thus not be analyzed under 
the DCP, LINE or CLUSTER options. if NDL is specified, then the analysis 
is produced from the Network Information File, rather than from in-core 
tables and the DCPCOOE file, and contains the NDL declarations for that 
station. These may not be the current attributes of the station, because 
modifications may be made at run-time via DCWRITES. 

The <termlnal designate> option produces the NDL specifications of 
terminals. This information Is retrieved from the Network Information 
File. The <remote type index> Is the index used by the DATACOM control- 
ler Into a table which describes each terminal specified In NDL. In 
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physical terms, terminals are numbered in the sequence in which they 
appear in the NDL specification of the networlc. 

Running Instructions 

The SYSTEM/DCSTATUS program is compiled as a procedure with an array 

as a parameter. The option list is passed to the program via this array. 

To compile the program, the following cards are required: 

<l> COMPILE SYSTEM/DCSTATUS DCALGOL LIBRARY 
<l> DCALGOL FILE TAPE (TITLE - SYMBOL/DCSTATUS) 
<l> EBCDIC 

$ MERGE INSTALLATION 

$ SET LEVEL 2 

(the $ cards) 
<l> END 

To execute the program, the following cards are required: 

<l> EXECUTE SYSTEM/DCSTATUS ("<opt ions>") 
<l> END 

SYSTEM/DCSTATUS may also be executed via CANDE with all output being 
directed to the remote terminal initiating the execution. The proper 
CANDE command is: 

DC^STATUS <options> 

Example s: 

a. <l> EXECUTE SYSTEM/DCSTATUS ("LINE 0, 2; CLUSTER 0, 1|");END 
This will cause output to be sent to a site line printer. 

b. <l> EXECUTE SYSTEM/DCSTATUS ("ALL") 

<l> FILE LINE (TITLE = M332, KIND - REMOTE) 
<l> END 

This will cause the output to be sent to a remote station named 
M332. 

c. DC STATION 32 

When this command is entered through CANDE, SYSTEM/DCSTATUS 
will be entered into the mix and executed, with information re- 
garding station number 32 being returned to the originating re- 
mote term inal . 
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Misc*llan«oui Information 

SYSTEM/DCSTATUS may be caDed directly from SYSTEH/HCS I I using the 

DP control statement. Output may be directed to a site tine printer or 

to the remote device on which the command was entered, 

If site is used, any number of coffimands may be entered simultaneously, 
output being directed to a site line printer. If remote is used, then 
output will be directed to the remote device on which the DP conmand 
was entered. It must be noted that In remote mode, only one copy of 
DCSTATUS may be run at a time. Care should be taken when using the re- 
mote option, as SYSTEM/DCSTATUS will necessarily produce voluminous out- 
put for the ALL, DCP and CLUSTER options, and it is not possible to 
terminate a program from a remote terminal when using SYSTEM/MCS 1 1 . 

The DATACOM status intrinsic does not lock the various HCP tables that 
it accesses. It is therefore possible that the contents of the tables 
may change while the intrinsic is running. In particular, some flags 
maintained in the tables are set In a transient manner. It will there- 
fore be a coincidence only that a run of DCSTATUS catches them set. 

SYSTEM/DCSTATUS will only return meaningful information if DATACOM is 
initialized. If DATACOM is not initialized, then DCSTATUS output will 
indicate such a situation. 

If, however, run-time system option number 12, AUTODC , is set, then a 
run of SYSTEM/DCSTATUS will cause an immediate initialization of the 
DATACOM tables, and information returned will be meaningful. Using this 
mode of operation, no DCP's will be fired up, and to start DATACOM 
activity a further "DC <DCP number>" must be entered on the SPO. The 
DATACOM tables will remain initialized after the DCSTATUS run. To re- 
turn this memory area to the system, a DCP must be fired up, and then 
DS-ed. 
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OPERATING PROCEDURES 

SYSTEM INITIALIZATION 

There are two system initialization procedures used in bringing a new 
MCP from tape or user disit to system disl^, starting at disk address 0: 
cold start and cool start. The cold start is a drastic measure under- 
taken with power on but with nothing on disk or undertaken when it is 
necessary to wipe out the disk directory and to rebuild it. The cool 
start is a less drastic measure than the cold start; in a cool start 
the disk directory is not destroyed. 

Cold start and cool start operations are performed from a card reader 
by use of a loader deck and a set of system initialization function 
cards. 

LOADER DECK 

The loader deck is an EBCDIC deck that contains the object code pro- 
duced by the ccmpilation of the program SYMBOL/LOADER. 

SYSTEM INITIALIZATION FUNCTIONS 

The system initialization function cards are punched in EBCDIC and in 

free format. Selected system initialization function cards are placed 

at the end of the loader deck to form either a cold start deck or a 
cool start deck. 

The syntax for system initialization function is as follows: 

<system initialization function> : := <date fijnction> | 

<overl ay funct ion> [ 

<d i rectory funct ion> j 

<load function> ] 

<option function> | 

<terminal function> j 

<cold start function> ] 

<l i St function> I 

<system disk function> ] 

<peripheral configuration function> 

<partition function> 



The cold start, list, system disk, peripheral configuration, and parti- 
tion functions are used only by the B 7700 system. 
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DATE FUNCTION 

Syntax: 

<date function> : := DATE <month> <slash> <day> <slash> <year: 

<nionth> ::= <digit> <digit> | <digit> 

<slash> : := / 

<day> ::= <digit> <digit> | <digit> 

<year> : := <digit> <digit> | <digit> 

Example : 

DATE 5/15/71 
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OVERLAY FUNCTION 

Syntax: 

<overlay function> : := OLAYROW <row s i ze> 

<row si2e> : := <integer> 

Semant J cs : 



1. Row size specifies the nunber of segments to be placed In the 
initial row of the MCP overlay file, as well as the size of each 
row of a stack's overlay file. 

2. The inclusion of an OLAYROW card will force a cold start. A cold 
start removes all disk directory Information. (Note, however, that 
the resident MCP still has access to itself.) This card must be 
omitted from the cool start deck. 

Example : 

OLAYROW 700 

DIRECTORY FUNCTION 

Syntax: 

<directory function> : := <directory location> ] <directory row> 
<directory location> : := DIRECTORYLOC <electronic unit no.> 

<segment no.> 
<dlrectory row> ; := DIRECTORYROW <row size> 
Semantics : 

1. The DIRECTORYLOC card will force a cold start; thus, this card 
must be omitted from a cool start deck. 

2. On the B 7700, the <electronics unit no> may be empty. )n this 
case, the system disk EU Is assumed. 

3- Th' DIRECTORYROW card will force a cold start; thus, this card 
must be omitted from a cool start deck. 
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LOAD FUNCTION 

Syntax: 

<)oad function> ::= <load tape> | <toad clisk> 

<load tape> ::= LOAD <file name> FROM <tape label> 

<load di5k> ::= LOAD <fMe name> DISK 

Examples : 

LOAD SYSTEM/HCP FROM SYSTEM 
LOAD SYSTEM/MCP DISK 

OPTION FUNCTION 

Syntax: 

<option function> ; := <setting> <option word> 

<setting> ::= SET j RESET 

<option word> : := <option> | <option pair> 

<option> ::= OPEN [ TERMINATE I CHECK | LPBDONLY I AUTORM ] 

DIAGNOSTICS j CDONLY | AUTORECOVERY | DUPSUPERVI SCR 1 
DUPINTRINSICS | RECONDUMP | AUTODC \ NODUMP | CPBOONLY 

<option pair> : := <option> <digit> <digit> | <option> <digit> 

Semant ics : 

The H run-time system options are as follows: 

• OPEN 

When this option is set, a file-open message is displayed for each 
job whenever a file is opened. 
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TERMINATE 

When this option is set, abnormal job terminations result in an 
attempted program dump rather than a full memory dump. If this 
option is reset, such abnormal terminations do result in a full 
memory dump. 

CHECK 

When this option is set, memory dumps under both abnormal termina- 
tion and FORGETCHECK conditions are inhibited. These dumps are auto- 
matic when CHECK is reset. 



When this option is set, all printer output files are assigned to 
printer backup disk. These files can then be printed by the AUTO- 
BACKUP routine. 



When this option is set, the MCP automatically removes the old file 
when a duplicate-file condition occurs- When AUTORH is reset, an 
RM or OF input message is required when such a condition occurs. 

DIAGNOSTICS 

When this option is set, an RSVP message ("RF DEGRADATION", etc.) is 
displayed at the operator's console any time the reliability of a 
hardware unit is degraded by a set amount. This option is meaning- 
less when the MCP has been compiled without setting the MT8F option. 

CDONLY 

The state of this option is ignored as pseudo readers are no longer 
used. 

AUTORECOVERY 

When this option is set, a Halt/Load is attempted following all 
system fatal memory dumps (except hung processor). DCPs which were 
running prior to the Halt/Load are subsequently reinitialized, and 
the AP number is restored to its value previous to the Halt. 

DUPSUPERVISOR 

This option is provided for use with Directory Reconstruction. If 
filename has been designated as the supervisor program by a CS input 
message and this option is set, then at Halt/Load time the MCP will 
attempt to execute a code file titled f i lename/EU#nnn, where nnn is 
the number of the EU from which the Halt/Load occurs. If this op- 
tion is reset, the code file with the TITLE of filename will be 
executed after a Halt/Load regardless of the EU involved. 
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DUPINTRINSICS 

This option is provided for use with Directory Reconstruction. if 
filename has been designated as the intrinsics file by a CI input 
message and this option is set, then at Halt/Load time, the system 
will attempt to use as the intrinsics file the code file with the 
TITLE of f i lename/EU^nnn, where nnn is the number of the ED from 
which the Halt/Load occurs. This provides an intrinsics file for 
the supervisor program, if any. If this option is reset, the code 
file witfi the TITLE of filename will be used as the intrinsics file 
at Halt/Load time regardless of the EU involved. 

RECONDUMP 

When this option is set, memory dumps during Directory Reconstruction 
are allowed and made nonfatal. When the option is reset, memory 
dumps are inhibited during reconstruction. 



When this option Is set, the automatic generation of a datacom 
control stack is provided for upon request from an executing job. 

• NODUMP 

When this option is set, the MCP is prevented from attempting dumps 
to tape. Potential nonfatal dumps are denoted by a message at the 
supervisory console and logged. The source of a fatal dump is dis- 
played in a system message at Halt/Load time. When NODUMP is reset, 
dumps are taken in the normal fashion. 

• CPBDONLY 

When this option is set, all card punch output files are assigned 
to punch backup disk. These files can then be punched by the AUTO- 
BACKUP routine. 

The appearance of an integer from to h7 with an option associates 
that number with the option. 

Options can be set and reset from the input keyboard by use of the RO 
and SO messages, as well as by the use of a card in the cold start or 
cool start deck. 

Example : 

SET TERMINATE 

TERMINATE FUNCTION 

Syntax : 

<terrrinal function> : := STOP [ " 
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Semantics : 

1. The STOP card causes any cards following it to be flushed and ig- 
nored until an end card is encountered. Cards witli the functions 
needed are placed before the STOP card and the renialnder after it. 
In this way the integrity of the deck of cards can be maintained. 

2. The asterisk (") function transfers control to another peripheral 
device (card reader or keyboard). When control is returned, scan- 
ning will be resumed where it left off (just beyond the *) . 

LIST FUNCTION (B 7700) 

Syntax : 

<I ist function> ; ;= LIST 

Semantics : 

The cards following the list card up to the "stop" card are listed. If 
errors occur, error messages are listed on the printer. 

COLD START FUNCTION (B 7700) 

Syntax : 

<cold start fijnction> : := COLD 

Semantics : 

This card may be used to cause a cold start request when It is not 
desired to specify a directory or overlay function, but to use system 
default values. 

SYSTEM DISK FUNCTION (B 7700) 

Syntax : 

system disk function : := DISK <dlist> 
dlist : :- <unit no.> | <dlist> <unlt no.> 

Semantics : 

The system disk card Is used to specify the disk electronics unit to be 
used as system disk. Up to six unit numbers may be specified in the 
<dllst>. Each EU will be tried In turn from left to right until one is 
found that is ready, not wri te- lockout, and not reserved. 

If no system disk card is used, disk units are tried in order from 
lowest unit number to highest. 
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PERIPHERAL CONFIGURATION FUNCTION (B 7700) 

Syntax : 

<peripheral configuration function> : := <un i t card> | 

<exchange card> ] 
<DFO card> | 
<DCP card> 

<unlt card> ::= <utag> <numlist> <info> 

<utag> ::= UNIT | UNITS 

<numlist> ::= <num> | <num> - <nunt> | <num> <numlist> 

<num> : := <integer> 

<info> :;= <map> | EXCH <id> <ot> 

<map> : := lOM <nuiTilist> CH <numlist> <type> 

<type> ::= PRINTER ] LP | READER | CR | PUNCH ] CP | DISKI | DISK! I | 
DISKPACK I DISPLAY | SPO \ PETAPE ] TAPE? ) TAPE9 | PTR | 
PTP I KIND <num> 

<ot> : := <type> | <empty> 

<id> : := (Identifier for an exchange) 

<exchange card> : := EXCH <id> <map> <rwalk> 

<rwalk> : := RING <numl ist> ] <efnpty> 

<DFO card> : := DFO <nurrc- <spec> 

<spec> : := <dnst> <!ndllst> 

<dlist> ::= <empty> | DIRECT <id> | DIRECT <id> DIRECT <id> 

<indlist> ::= <empty> | INDIRECT <id> [ INDIRECT <id> INDIRECT <id> 

<OCP card> : := DCP <d> lOM <d> ADDRESS <d> 

<d> ::= (Integer GEQ and LEQ 7) 

Semant I cs : 

\. Commas may appear at reasonable places. Unit numbers range from 1 
tliru 255' Each unit number must appear on only one card, except 
for <rvialk>. 
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2. lOH numbers range from thru 7. Channel numbers (CH) range from 

1 thru 20, and from 24 thru 31 (disk only). The "KIND <num> " form 
of TYPE must specify a known type. 

3. If <ot> specifies type, the type must agree with the type on the 
EXCH card. 

4. The <num> - <num> form of <numlist> specifies a range (32-3^ is 
equivalent to 32, 33, 3**) . 

5- A <numlist> is not necessarily sequential or ascending. 

6. An <id> must start with a letter. 

7- An <id> must be unique from other <id> s in the first 5 characters 
plus length ("DISK27" and "DISK29" are equivalent, whereas "DISK27" 
and "DISK29I" are not) . 

8. A unit is marked as being on an exchange if one (or more) other 
units are specified for the same <map> . 

9- When <rwalk> is empty, the units on an exchange are linked for 

ringwalk in ascending order, regardless of order of appearance in 
parameter deck. 

10. A ringwalk other than ascending may be specified with <rwalk>; in 
this case, units are linked in the order in which they occur in the 
<numlist> following "RING"; all units in a <rwalk> must be on the 
exchange, and all units on the exchange must be In the <rwalk>. 

11. For <type>, "DISKI" is IC4, 1C3, etc., and DISKll is IIB-4, etc. 

12. On a DFO card one of <dllst> and <indlist> must not be empty. 

13. Unit number and path assignments are by no means arbitrarily 
selected by an operator. The cards must reflect exactly the way 
in which the peripherals were installed; consequently the deck 
ought to be built In cooperation with the site engineer. 

]k. When disks are to be used with a disk file optimizer, the DFO card 
is used: 



Exampl e : 



UNITS 96-105, EXCH DKA 
EXCH DKA lOH CH 27 DISKI 
UNITS I6O-I69, I76-I85, EXCH OKC 
EXCH DKC lOM 0, I CH 29, DISKI 
DFO 28, DIRECT DKA INDIRECT DKC 
DFO 29, DIRECT DKC INDIRECT DKA 
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The unit number for the DFO and connections for direct and indirect 
ports are again determined by installation procedures and not arbit- 
rari ly selected. 

Note that in the above example DKC i s a 2 x 20 disk exchange and 
consequently occupies both direct ports on DFO 29 and both indirect 
ports on DFO 28. Also, note that the <id> is used to link the DFO 
to a set of EU's. 

15- The DCP card is used to describe how the DCP's (if any) were in- 
stalled: 

Example : 

DCP 1 lOM 1 ADDRESS 1 
DCP 2 lOM 1 ADDRESS 2 
DCP 3 lOM ADDRESS 1 

On this card, the DCP number is a logical number and has no rela- 
tion to installation; the lOM address combination reflects installa- 
tion. 



Some examples of simple peripherals are: 

UNIT 10, lOH 1, CH 13, LP 
UNIT II , lOM 0, CH U, PRINTER 
UNIT 26, lOM h. CH i*, CR. 

The urit number is determined by the device's position in the status 
vector, and the lOM-channel combinations reflect how the devices are 
instal led. 

Exchanges may be described in several ways: 

UNIT 32-^1 lOH 0-1 CH 24,25 DISKI 

UNIT 17 EXCH TP2 TAPE? 

UNIT 18 EXCH TP2 TAPE? 

UNIT 20-24 EXCH TP2 

EXCH TP2 lOM I CH 2-4 TAPE? 

Note that the <id> is used to link one or more unit cards to an EXCH 
card which describes the access path(s) via <map> . 

An example with <rwalk>: 

UNIT 64. EXCH DK4 

UNIT 66,65, ?0 EXCH DK4 

UNIT 6?-69,71, EXCH DK4 

EXCH DK4, IOM 0-4, CH 30, DISKII RING ?l-64 
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That exchange would be linked in the unit table from 71 thru 6^ (If 
the <rwalk> was empty, they would be linked 6A-7]). 

PARTITION FUNCTION (B 7700) 



Syntax : 

<partition function> 



PART <s]ist> 



<s] ist> 
<sectio 

<cpmx> 

<iomx> 

<mcmx> 

<dcpx> 

<dto> 

<dfox> 



<sectIon> j <slist> <section> 

= <cpmx> I <mcmx> ] <iomx> I <dfox> j <dcpx> ] <sharedx: 



:= CPM <num] ist> 

:= lOM <numl Ist> 

:= MCM <num]ist> 

:= DCP <dto> 

:= NONE I ALL j <nuinllst> 

: := DFO <dto> 

<sharedx> ::= SHARED <slt> 

<slt> :;= NONE | ALL | ODD | EVEN ] <numllst> 

<numlist> ::= <num> | <num> - <num> | <num> | <numlist> 

<num> ; := <integer> 

Semantics : 

1- Partition Infonnation is not preserved across coo] or cold start- 
in order to keep a partition in force, the partition parameter cards 
must remain in the parameter deck. 

2. If no partition cards appear, no partition is assumed; all the units 
specified by peripheral cards and all main frame nodules will be 
used by the MCP. 

3- If no partition card appears for a particular <section>, all items 
in that <section> are included in the partition. 

'i. More than one partition card may appear In the deck; the various 
cards are "OR"ed inclusively for each <section>. 

5- Partition cards may appear in any order and anywhere in the deck 
prior to "STOP". No cross checking between partitions is done; 
specifying overlapping partitions may cause catastrophic errors. 
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Specifying which lOM's are in the partition will cause all non- 
exchange devices on lOM's not in the partition to be deleted, in- 
cluding DCP's. In addition, all exchange devices which are not 
connected to any lOH in the partition will be deleted, including 
DFO's. Exchange devices which are connected only to lOH's in the 
partition, and non-exchange devices on lOH's in the partition, are 
retained in the unit table; all DCP's and DFO's connected wholly 
within the partition are retained subject to modification by a 
<dfox> or <dcpx> section. All exchange devices or DFO's connected 
to lOM's both in and out of the partition are retained, subject to 
modification by a <sharedx> or <dfo's> section. 

A list is acquired by logical DCP number in the case of DCP's, and by 
physical unit number in the case of DFO's and peripheral devices, 
if a DCP, DFO, or SHARED section does not appear, then "ALL" is 
assumed for that section. More than one occurrence of a section re- 
sults in "OR"ing of all devices specified in all occurrences of that 
section. "ODD" and "EVEN" refer to odd and even numbered units, 
respectively. 

The list is then applied to all exchange devices (not DFO's) which 
are shared by (connected to) lOM's both in and out of the partition. 
References made to devices which are connected wholly within or 
wholly without the partition are ignored. Units not in the list are 
deleted from the unit table. 



Cold Start 

By use of the cold start operation a new MCP is loaded to system disic. 
After the MCP has been loaded and a brand new disk directory listing 
the MCP has been built, the system does a Halt-Load and the first 8l92 
words of the MCP are read into core memory. The MCP is then in control 
of the system, and the system software can then be placed on user disk 
by the entry of the following control statement at the input keyboard. 

? COPY SYSTEM/= FROM SYSTEM; END 

To load a new MCP from tape, use the following procedure. 

a. Turn system power on. 

b. Mount tape SYSTEM and make it available to the system. 

c. Press and release CARD LOAD SELECT push button on operator's 
console. 

d. Place cold start deck (loader deck followed by selected system 
initialization function cards) in cold-start reader, make 
card reader ready, and press and release START push button on 
card reader. 
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e. Press and release LOAD push button on operator's console; 
first card of loader deck is read. 



Cool Start 

By use of the cool start operation, it is possible to replace the 
object code for the MCP without destroying the disk directory. As with 
a cold start, the new MCP is loaded to system disk, the system does a 
Halt-Load, and the new MCP is in control of the system. 

The operating procedure for doing a cool start (by loading a new MCP 
from tape) is the same as for doing a cold start, except that a cool 
start deck is used instead of a cold start deck. The only difference 
between a cool start deck and a cold start deck is that system 
initialization function cards, OLAYROW, Dl RECTORYLOC, and DIRECTORYROW 
used in a cold start deck must be omitted from the cool start deck. 

Also, if there is a version of the MCP on user disk, a cool start can be 
done from the input keyboard by use of the CM input keyboard message. 

On the B 7700, a cool start is often done merely to build unit tables 
without reloading the MCP code file. 

Halt-Load 

The Halt-Load operation is a disk-load operation used in bringing a 

fresh version of the MCP from system disk to main memory. The first 

8192 words of the MCP, starting at disk address 0, are read into main 
memory. 

The effects of the Halt-Load operation are as follows: 

a. All processor registers are cleared and new values are 
inserted in some. 

b. All I/O activities cease. 

c. Loading from disk is initiated. 

Thus, the processing of all jobs is terminated by a Halt-Load and must 
be started again after the Halt-Load. Note, however, that the disk 
directory and, hence, all files on disk are not disturbed by a Halt- 
Load operation. 

To perform a Halt-Load operation from the operator's console, proceed 
as fol lows . 

a. Simultaneously press HALT and ENABLE push buttons; then 
release them, 

b. Press and release LOAD push button. 
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DISPLAY OF PROCESSOR REGISTERS (B 6700) 

To display in the A register the contents of the processor registers 
listed below, use the following procedure. 



Name of Register Hexadecimal Address 

DO through D31 00 through IF 

PIR 20 

SIR 21 

01 R 22 

TIR (BUF3) 23 

LOSR 2k 

BOSR 25 

F 26 

BUF 27 

PBR 30 

SBR 31 

DBR 32 

TBR (BUF2) 33 

S 3'* 

SNR 35 

PDR 36 

TEMP 37 

Set SECL switch (on processor maintenance control panel) to 
position "up." 

Set LOCAL-REMOTE switch (on processor maintenance control 
panel) to position LOCAL, 

Press and release ADJ-O.O push button (on processor mainte- 
nance control panel), 

Place in the B register the hexadecimal address of the register 
the contents of which are to be displayed. (For example, to 
display the contents of PDR, place the hexadecimal value 36 
i n the B regi ster. ) 

Press and release BROF push-button indicator (on processor 
di sp 1 ay pane 1 ) . 

Press and release READ- I C push button (on processor mainte- 
nance control panel) . 

Read the value displayed in the A register (bits 19:20). 
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To display in the SM register the contents of the processor registers 
S, F, PBR, P!R, BOSR, and LOSR, use the following procedure. (All 
switches referred to in this procedure are located on the processor 
maintenance control panel.) 

a. Set LOCAL-REMOTE switch to position LOCAL. 

b. Press and release ADJ-0,0 push button. 

c. Press and hold one of the following READ PROG REG push buttons 
(depending on the register to be displayed): S, F, PBR, PIR, 
BOSR, or LOSR. 

d. Read the value displayed in the SM register (SHOO through 
SM20) , located on the processor display panel. 

FORCING A MEMORY DUMP (B 6700) 

To force a dump of main memory, use the following procedure. 

a. Enter the DP message at the input keyboard. If this attempt 
to force a memory dump is unsuccessful, proceed with step b 
below. 

b. On the memory tester panel, 

1. Place the hexadecimal value 1^ in MEMORY WRITE regis- 
ter. Set tag to 1 . 

2. Place the hexadecimal value 33 in WORD ADDRESS 
register. 

3. Press and release WRITE REQUEST push button. 

k. Simultaneously press O'RIDE PROTECT and START push 
buttons. Release them. 

The actions described above cause an I RW to the MEMDUMP PCW 
to be written in address D[0]+3, which is the address to which 
all processors go to answer any interrupt. Therefore, the I RW 
having been written into location D[0]+3, the next processor 
that responds to any interrupt enters MEMDUMP and begins the 
dump cycle. 

If at this point, however, the processor or processors are 
apparently not answering external or internal interrupts and 
no memory dump occurs, an alarm interrupt must be forced into 
a processor. (This type of interrupt also causes entry into 



PRINTED IN U.S. AMERICA 5000722 



7-16 B 6700 / B 7700 SYSTEM SOFTWARE HANDBOOK 



FORCING A MEMORY DUMP (B 6700) 



an interrupt-handl ing procedure by way of location D[0]+3.) 
The safest alarm interrupt to force into a processor is the 
stack-underflow interrupt. Proceed with steps c through h 
below to force a stack-underflow interrupt into a processor 
and to, again, attempt a memory dump. 

On processor maintenance control panel, set SECL switch to 
posi tion "up." 

On general controls panel, set SYST clock control to position 



In INTERRUPT CONTROL section of processor display panel, set 
SUFL (stack-underflow interrupt) flip-flop and reset all other 
flip-flops in INTERRUPT control. 

Set SYST dock control to position "down." 

Set SECL switch to position "down." 

On processor maintenance control panel, press and release 
START push button. If no dump occurs, proceed with steps 
belcKni. 

Set SECL switch to position "up." 

Place LOCAL/REMOTE switch to position LOCAL. 

Press and release ADJ 0,0 push button. 

Press and release UNIT CLEAR push button. 

Enter a hexadecimal 30 in the two least significant characters 
of the A register. 

Set AROF and BROF. 

Press and release WRITE-IC push button. 

Enter the following syllables into the P register of the pro- 
cessor: 3 AE liO \U BO BO AB (MKST; NAMC: MEMDUMP ; LIT:0; 
LlT:0; ENTR) . 

Set PROF, IIHF, and NCSF. 

Place the SECL and the LOCAL/REMOTE switch in the position 
"down. " 

Press and release START push button. 
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FORCING A MEMORY DUMP (B 7700) 

1. Place the processor{s) In SINGLE INSTRUCT. Also place them in 
TEST mode to avoid a timeout. Note: At least one processor must 
be in control mode or I ; otherwise, the dump cannot be forced 
by this method. 

2. Purge the stack buffer on each processor, if required. (Depress 
and ho)d PBl and toggle the PLS switch). 

3- Write an IRW to (0, lA) into the D [O] + 3 location In memory. 

a. Place the MCM that contains address zero in TEST and LOCAL mode. 

b. Load the IRW (1 000000 OOOOU) into the input register (Row 7). 

c. Load a control word specifying a single word overwrite operation 
to address hexadecimal 33 into the control word register 

(Row 6). The control word should have bits ^7, US, and on 
and should have 00033 in the address field. 

d. Ensure that the single/continuous cycle switch is in the single 
position. 

e. Depress START to accomplish the write operation. 

f. Place the MCM In REMOTE. 

k. Take the processor that is to perform the dump out of SINGLE INSTRUCT 
and press the START pushbutton. If the processor is responding to 
external interrupts, the dump will commence. if not, proceed to 
step 5. 

5. Place the processor in SINGLE INSTRUCT. If the processor is in 
control mode 1, press the START pushbutton until It returns to 
control mode 0. If the SNP flip-flop (Panel 2, Row 7, bit 33) is on, 
press the pulse pushbutton until It goes off. 

6. Set the stack underflow interrupt (Panel 2, Row ]k, Bit 12). Note: 
Dial the correct setting into the thumbwheel switches, place panel 

2 toggle switch 12 up, all others down, and press LOAD. Do not press 
CLEAR. 

7- Take the processor out of SINGLE INSTRUCT and press the START push- 
button. The dump should coimience. 
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CLEARING MEMORY (B 6700) 

To clear main memory, use the fallowing procedure. (All switches and 
indicators referred to in this procedure are located on the memory 
tester panel . ) 

Set TEST-NONTEST switch to position TEST; red TEST ON indica- 
tor lights. 

Set INHIBIT-HALT-ERR/CHGE switch to position INHIBIT. 

Set WRITE-READ switch to position "center." 

Set SINGLE-CONT switch to position "center." 

Set MEM CLEAR switch to position "up." 

Press and release CLEAR push button. 

Press and release START push button. 

Press and release CLEAR push button. 

Set HEM CLEAR switch to position "down." 

Set TEST-NONTEST switch to position NONTEST; TEST ON indicator 
goes off. 
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APPENDIX A 
B 6700 PUBLICATIONS 



SYSTEM MANUALS 

Publ icat ion 

Facility Installation Manual 

Field Engineering Installation Manual 

B 6700 Information Processing System Reference 

B 6700 System Hardware Handbook 

B 6700/B 7700 System Software Handbool< 

System Miscellanea 



Form No. 

5000326 
5000177 
1058633 
5000276 
5000722 
5000367 



SOFTWARE INFORMATION MANUALS 

Publ icat ion 

BASIC Language 

CANDE Operations 

COBOL Filter 

COBOL Reference 

Command and Edit (CANDE) Language 

Compatible ALGOL Filter 

Data Communications Extended ALGOL (DC ALGOL) 

Data Communications Functional Description 

Data Management 

ESPOL Language 

Extended ALGOL Compiler 
Extended ALGOL Language 
FORTRAN Reference 
Input/Output Subsystem 
MAKEUSER Progran 

Mathematical Intrinsics 

MCSII User's Guide 

Networl< Definition Language 

On-Line Maintenance and Test (MAT) Language 

PL/ I Language 

Program Binder 

Remote Job Entry (RJE) System 

Sort Program 

SYSTEH/DUMPANALYZER 

System Status Intrinsic 

Worl<fIow Management Reference 
Worl<flow Management User's Guide 



Form No. 

5000383 
5000615 
500001 1 
5000656 
5000318 

5000003 
5000052 
5000060 
5000235 
500009') 

5000136 
5000128 
50001458 
5000185 
5000227 

5000151 
5000219 
5000078 
5000169 
5000201 

500OOI15 
5000300 
50001 W 
500033'! 
5OOOI125 

5000706 
5000711) 
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HARDWARE FIELD ENGINEERING TECHNICAL MANUALS 



Pubi ication 

Card Reader Control 

Console Display Control 

Core Memory 

Data Communications Processor 

Disk File Control IV 

Display and Maintenance Diagnostic Logic 
Dynamic Reconfiguration 
I/O Processor 
Peripheral Controller 
Power Supply 

Processor 

9-Track Magnetic Tape Control 

65K Mass Memory 

Controlled Reconfiguration 



Form No. 

1 osoeAo 

1 01)5721 
10111613 
IOJ4I639 
10*5028 

lOlilSZl 
5000607 
10416117 
1045713 
1 Oil 165') 

IOI1O326 
lOSWd 
5000680 
5000599 



REFERENCE CARDS 



Cluster Adapter Overlay Template 

CANDE 

Result Descriptors 

Data Cormunication Processor 



Form No. 

5000581-001 
5OOO58I -002 
5000581-003 
1051638 
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